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Forth P-Code Interpreter 
by A,J. Monroe 

In 1978, £ FTii published the "Tiny" Pascal Language Series by Kin-Man 
Chung and Herbert Yuen. In the present article, that p-code interpreter has 
been rewritten in Forth. Here is an excellent chance to compare the same 
program in Pascal and Forth. You not only get a useful piece of software — 
you will gain an insight into the similarities and differences between two 
popular modern languages. 

Recursion 

by Michael Ham 

Recursion, as difficult to grasp as it is to explain, often leads to elegant 
expression of an algorithm. This article, complete with examples and home- 
work, aims to make the subject less shppery. 

Forth Semaphores 
by Jens Zander 

In task-controlled or truly concurrent systems, correctly managing the sys- 
tem states can be a complex task. Passing data and sharing I/O devices pose 
related problems. The author presents a Forth implementation of Dijkstra's 
"semaphore" solution. 

Forth-83 Program to Run Forth-79 Code 
by Robert Berkey 

The author explains that, because Forth-83 is primarily a superset of Forth- 
79, this translator program works well in most instances. Words that are 
difficult to translate automatically are discussed. This code will run Forth-79 
programs, as well as aid in their conversion. 

ANDIF and AND WHILE 
by Wendall C. Gates 

Readers who enjoyed "Parnas' it...ti Structure" by Luoto will find this a 
useful follow-up piece. For simpler applications, this solution to multiple- 
input branching just may be the route your program will use. 



35 Volume V Index 
by Julie Anton 

This reference tool was prepared at FIG's request as a service to members. 
Looking for an article by subject, author or title? Here's the place to find it! 

DEPARTMENTS 

5 Letters 

6 Editorial: Points of Departure 

37 Techniques Tutorial: Mixing CODE With High-Level Forth 

by Henry Laxen 
40 Chapter News by John D. Hall 
42 FIG Chapters 
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FORTH COMPUTER 

Build the TDS900 into your products, 
program it with a VDU and your forecasts 
become fact. 




:tc Single board 
computer. 12K RAM and 
8K ROM (expandable) ^ All C-MOS for low power 
:icFig-FORTH high level language. Compiled and 
fast. On-board screen-editor, compiler and debug facilities. 
:icEasy connection with serial and parallel channels, 
A/D, D/A converters, triacs, printers, lceytx)ards and displays. 




Triangle Digh^ Se i ' wke* Limited 

lOOa Wood St., WaIthamsaj»,LoBdDti EIT. England 
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Grounded in Data Transfer, and 
CREATE for Jupiter 

Dear Mr. Ouverson: 

I would like to comment on "Simple 
Data Transfer Protocol" by Ericson and 
Feucht {Forth Dimensions VI/ 2). Fig- 
ure one showed pin 1 as ground. RS232 
designates pin 1 as the chassis ground, 
while pin 7 is the signal ground. In some 
computer systems these two grounds 
may be electrically connected, but in 
others they are not. Therefore, it is good 
practice to use pin 7 instead of pin 1 as 
ground for communications cabling. Fig- 
ure two showed a loop connection of the 
control signals on pins 4, 5 and 8. This 
will work for many systems, but should 
not be considered universal. The control 
signals required vary from system to sys- 
tem. Some need pin 6 (data set ready) 
asserted to enable receiving. Others need 
no control signals at all. 

When working with RS232 ports on 
various computer systems, I have found 
it very useful to use a cable matcher. This 
is a small box with RS232 connectors on 
both ends and jumpers between the con- 
nectors. A cable matcher enables me to 
test the RS232 port with different con- 
trol signal loops, as well as with pins 2 
and 3 crossed or uncrossed (with or 
without null modem). I have found that I 
can get two RS232 ports communicating 
by trial and error faster than I can by 
trying to decipher any documentation 
for the ports. 



Also, I am the owner of a Jupiter Ace 
computer and would like to share some 
code with other Jupiter programmers. I 
am disappointed by the Jupiter's DEFIN- 
ER DOES> pair, which takes the place of 
CREATE DOES>. For simple defining 
words, they work fine. However, con- 
structing a defining word that constructs 
defining words, as presented in Henry 
Laxen's fine articles (Forth Dimensions 
IV/ 2,3), is beyond the capabilities of 
DEFINER DOES>. Redefining DOES> as in 
figure one will allow CREATE DOES> to be 
used as by the Forth-79 Standard. I used 
Glen Haydon's book. All About Forth, 
as a reference to aid in the development 
of the definitions. 

This demonstrates that, although the 
Jupiter does not contain a complete 
Forth-79 implementation, alterations to 
the system to make it more closely con- 
form are quite easy. Ease of system alter- 
ation is one of the outstanding character- 
istics of Forth. 

Sincerely, 

Ed Schmauch 
Conoco, Inc. 
P.O. Box 1267 

Ponca City, Oklahoma 74603 

Coding for Dollars, and 
Wanted: Slow Editors 

Dear FIG: 

Your recent articles on "PL/ 1 Data 
Structures" (For/Zi Dimensions V / 6) and 



"Procedural Arguments" (VI/ 2) are the 
wave of the future — at least of Forth 's 
future. If Forth is to be more than a 
process control language, it must live up 
to Moore's claim (in these pages) that 
Forth can do anything any other lan- 
guage can do, only more elegantly. 

To that end, I would like to suggest a 
competition organized by FIG, to be 
held in these pages, in which 1) the major 
features of all major languages are de- 
fined by an expert committee, and 2) 
annual prizes are given for those pub- 
lished articles which best describe how 
these features can be implemented in 
Forth. 

Prizes should be awarded for 1) the 
most complete implementation, 2) the 
most intelligible implementation, 3) the 
simplest implementation, 4) the most 
elegant (i.e. combination of all the above) 
implementation. 

Prizes should consist of a free year's 
membership in FIG. Furthermore, as 
each of the major languages (I nominate 
COBOL, RPG-II, PL/I, Pascal, 
Modula-II, Ada, C, Fortran, APL, Lisp 
and Prolog) is completed, articles rele- 
vant to it should be collected into mono- 
graph form and authors of those articles 
should be given a copy of that mono- 
graph. 

The real winner in this competition 
would be the computing community, 
which would gain the ability to use the 
best of each language in a way uniquely 
suited to the purpose at hand. If this 
suggestion is taken as seriously as I hope 
it will be, I would like as my reward for 
suggesting it a standing invitation to 
have the pleasure of the company of 
Henry Laxen and Bill Ragsdale for 
lunch or dinner, which I shall gladly buy. 
The opportunity to be surrounded by 
their kind of brilliance (their columns are 
worth the entire price of admission) 
could be the prize for the year's best 
article. 

Finally, an editorial suggestion. You 
need someone as slow to learn as I on 
your editorial board. The standing joke 
in our local FIG chapter meetings is my 



16 BASE C! 






FFO CONSTANT DODOES 






: COMPILE R> DUP (3 


2+ >R ; 




: <;CODE> R> CURRENT @ 


(9 1+!; 




: DOES> COMPILE <;CODE> 


CD C, DODOES , 


; IMMEDIATE 


DECIMAL 


Figure One 
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Points of Departure 



As we put this issue together, the 
FORML tour group is in the midst of 
last-minute preparations for its trip to 
Taiwan, Hong Kong and China. All are 
looking forward to the technical inter- 
action with FIG members, computer 
professionals and academicians in those 
countries, although I've heard rumor 
that at least one traveler will forego one 
of the conferences for the sake of cultu- 
ral exchange (could it be shopping?). 
Barring terminal jet lag, you'll read 
about the conferences — and maybe even 
the shopping — in an upcoming issue. 

If you are one of those who plans to 
stay in terra cognita this year, I hope 
you at least treat yourself to the Forth 
convention and to the FORML confer- 
ence, both in November. The programs 
for both events promise to deliver dou- 
ble doses of both conventional and 



innovative Forth wisdom. Although it 
will be no substitute for being there, as 
with the journey to the East, we will 
report as many of the items of interest 
as these pages will allow. 

Meanwhile, back to the issue at hand. 
We are happy to present you with an 
index to the last volume of Forth 
Dimensions. Write to let us know if you 
find it useful and would like to see other 
volumes indexed in the same way. 

The feature which stands out the 
most, perhaps, is Al Monroe's p-code 
interpreter written in Forth. As he 
explains, it is intended to be both useful 
and educational. We feel it is particu- 
larly appropriate for Pascal program- 
mers to use as a point of departure into 
the world of Forth. As a note of expla- 
nation to you style purists, it is inten- 
tionally written in a way to show how 



Pascal code can be mapped onto Forth. 
As an interesting exercise, it coincides 
with a reader's request in this issue's 
"Letters to the Editor." 

We continue looking for simple appli- 
cations to publish in these pages. There 
are few better ways to appreciate Forth 
than by study of a clear example of 
working code alongside a lucid expla- 
nation with just the right amount of 
detail. We have received some promis- 
ing contributions and look forward to 
receiving many more. It's always good 
to hear from the FIG membership, so 
keep those letters and articles coming! 

— Marlin Ouverson 
Editor 



ratings of your articles: each receives a 
number equal to the number of times I 
had to read it before I understood it. The 
PL/ 1 article, which I give a 10 of 10 for 
insight, also got a 10 for the number of 
times I read it before I understood what 
was going on. I'm at 4 for the equally 
insightful procedural arguments article, 
and counting. 

Sincerely yours, 

Henry J. Fay 
4020 East Road 
Cazenovia, New York 13035 



Mixed INTEGER Review; 
Consistency Constituent 

Dear Sir: 

I read with interest "The Integer Solu- 
tion" by Marc Perkel {Forth Dimensions 
VI/ 2). Since it was tagged with a 
FORML label, I felt a discussion of the 
ideas presented was in order. First, his 
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idea for two code fields is interesting and 
possibly useful in areas other than INTE- 
GERS. However, his examples and the 
idea of an INTEGER touch directly at the 
core philosophy behind Forth. 

Forth uses postfix notation for most 
of its syntax, with the exception of ', 
FIND and defining words. Assigning a 
value to an INTEGER is done using prefix 
notation and would be used extensively. 
This would be confusing. Is Forth to be a 
consistent language, or are we to have 
conflicting rules? Do we want to have 
another English (i before e except in 
receipt and a few other places)? 

Mr. Perkel says that he eliminates @ 
and !. He does not. He eliminates @ and 
replaces ! with ->. The gain in brevity is 
only half his claim. Thus, I feel INTEGER 
is not a useful addition to the Forth 
standard because the loss in consistency 
is not offset by the slight gain in source 
code brevity. 

Another complaint I have is that Mr. 
Perkel's examples are not a comparison 
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between INTEGER and VARIABLE but be- 
tween using variables for storage and 
using the stack for storage. The example 
definition for BOX could be written using 
variable storage, and to me would be just 
as readable, even with the addition of the 
@ after the variable name. The definition 
of BOX using the stack will be harder to 
read and understand, as will most any 
other word defined to use the stack for 
data storage. The advantage of using the 
stack is not in having readable code, but 
in having "reentrant" code. Unless a 
solution uses recursion, reentrant code is 
not needed for most application 
programs. 

The code in Marc's first figure is not 
an application but a system operation. In 
it, he assumes a system variable (BLK) has 
been redefined as an INTEGER. This is a 
very, very bad idea. Systems words must 
be reentrant if Forth is to be used in a 
multi-tasking or multi-user environment. 
While Mr. Perkel's system may be single 
user, and he may have no plans to do 
multi-tasking, any Forth system has the 

Volume VI, No. 4 



potential for multi-tasking. I sincerely 
believe that this is a strength of the origi- 
nal design of fig-FORTH and is not 
something that should be left out of 
future language definitions. 

The standard definition of BLK is as a 
USER variable. It contains another level 
of indirection via the UP (user pointer) 
that makes it possible for each task or 
user to have a complete set of system 
variables. This is done by the operating 
system when switching tasks and is trans- 
parent to the user. With Mr. Perkel's 
INTEGER BLK, separate users trying to 
access the disk at the same time would 
end up getting the same data, that con- 
tained in the second user's BLK. His defi- 
nition for MORE is easier to read and 
understand, I just think the standard BLK 
(with associated @) should be used 
instead. 

A question that I have for the stand- 
ards committee concerns defining words. 
Are they consistent with postfix nota- 
tion? At first glance, it appears they are 
not consistent. However, :, VARIABLE, 
etc. do not get the name from the data 
stack but rather from the input stream. 
This was one of the conceptual problems 
I encountered when learning Forth sev- 
eral years ago. Now the order : newname 
seems natural to me, but should the lan- 
guage definition be changed to eliminate 
an inconsistency in the syntax? This 
could easily be done with a change to 
INTERPRET incorporating a check for a 
defining word after determining a token 
is not in the dictionary and is not a 
number. This solution does not allow for 
defining 5 as a constant with the name 5, 
however, and so has problems of its own. 
1 am for keeping the syntax of Forth 
constant with postfix notation but I am 
not clear in my own mind that the defin- 
ing words really constitute a problem. 
What do other people (and especially 
newcomers to Forth) think? 

Sincerely, 



consistent with postfix notation is a cor- 
rect one. However, no proposed change 
has recevied the required accolades; de- 
tailed discussion will fetch up problems 
of state-smartness, string stacks, bit 
switches and other sleeping dogs, to say 
nothing of the functionality and inertia 
of the present syntax. 



Search for Model III Source 

Dear FIG: 

I'm looking for a fig-FORTH or 79- 
Standard system on disk for my TRS-80 
Model III. Not the CP/ M version, but 
public-domain software with source 
code. I'm operating under MMS- 
FORTH but much of the kernel is not 
with source code and I can't sell the 
system with my own programs. 

I am a FIG member who needs direc- 
tion. Thank you. 

Arthur Wendover 
Box 263 

Isafjordur, Iceland 

P. S. Your Volume VI, Number 1 issue is 
very useful and interesting, especially 
the list handling article. 



Dr. Ken Butterfield 

2020 - 23rd Street, Apt. C 

Los Alamos, New Mexico 87544 



Editor's note: Your observation that 
Forth's defining words do not appear 




the powerful multitasking/ 
multi-user operating system 

is now available for most 
micro-computers running— 



CP/M-80 
and 

CP/M-86 

Offers CP/M users: 

• An ability to run multiple 
terminals 

• Unlimited control tasks 

• Concurrent printer 
operation 

These advanced features combine 
with FORTH, Inc.'s powerful ver- 
sion of the FORTH programming 
language to offer CP/M users the 
ideal environment for all interactive 
and real-time applications. 

Featuring speed of operation, shor- 
tened development time, ease of 
implementation and overall cost- 
effective performance, this system 
is fully supported by FORTH, Inc.'s: 

• Extensive on-line documen- 
tation 

• Complete set of manuals 

• Programming courses 

• The FORTH, Inc. hot line 

• Expert contract programming 
and consulting services 

From FORTH, Inc., the inventors 
of FORTH, serving professional 
programmers for over a decade. 

Also available for other popular 
mini and micro computers. 

For more information contact: 

FORTH. Inc. 

2309 Pacific Coast Hwy. 
Hermosa Beach, 
CA 90254 
213/372-8493 
RCA TELEX: 275182 ^ 
Eastern Sales Office '~ 
1300 N. 17th St. #1306 
Arlington, VA 22209 
703/525-7778 
'CPIM is a registered trademarls of Digital Research 




Volume VI, No. 4 



7 



FORTH Dimensions 



hi 



res. 



line 



& 



SUPER FORTH 64» 

By Elliot B Schneider 

TOTAL CONTROL OVER YOUR COMMODORE-64" 

USING ONLY WORDS 

MAKING PROGRAMMING FAST, FUN AND EASY! 

MORE THAN JUST A LANGUAGE . . . 
A complete, fully-integrated program development system. 

Home Use, Fast Games, Graphics, Data Acquisition, Business, Music 
Real Time Process Control, Communications, Robotics, Scientific, Artificial Intelligence 

A Powerful Superset of MVPFORTH/ FORTH 79 + Ext, for the beginner or professional 

• SPRITE-EDITOR 

• Access all C-64 peripherals including 4040 
drive and EPROM Programmer. 

• Single disk drive backup utility 

• Disk & Cassette based. Disk included 

• Full disk usage — 680 Sectors 

• Supports all Commodore file types and 
Forth Virtual disk 

• Access to 20K RAM underneath ROM 
areas 

• Vectored kernel words 

• TRACE facility 

• DECOMPILER facility 

• Full String Handling 

• ASCII error messages 

• FLOATING POINT AAATH SIN/ COS & SORT 

• Conversational user defined Commands 

• Tutorial examples provided, in extensive 
manual 

• INTERRUPT routines provide easy control 
of hardware timers, okarrrvs and devices 

• USER Support 

SUPER FORTH b4® compiled code 

becomes more compact than even assembly code! 



• 20 to 600 X faster than Basic 

• 1/4 X the programming time 

• Easy full control of all sound , 
g raphics , color, sprite, plotting 
circle 

• Controllable SPLIT-SCREEN Display 

• Includes interactive interpreter & compiler 

• Forth virtual memor y 

• Full cursor Screen Editor 

• Provision for application program 
distribution without licensing 

• FORTH equivalent Kernal Routines 

• Conditional Macro Assembler 

• Meets all Forth 79 standards+ 

• Source screens provided 

• Compatible with the book "Starting Forth" 
by Leo Brodie 

• Access to all I/O ports RS232, IEEE, 
including memory & interrupts 

• ROMABLE code generator 

• MUSIC-EDITOR 

SUPER FORTH 64® 

is more 

powerful than most other computer languages! 
• SUPERFORTH64 • 



LOGO 



LISP 



PASCAL 



BASIC 
FORTRAN 



ASSEMBLER 




Power of Languages Constructs 



A SUPERIOR PRODUCT 
in every way! At a low 
price of only 



$96 



Free Shipping in U.S.A. 
® PARSEC RESEARCH (Estabiishtd 



Program Functionality 

CALL: 

(415) 961-4103 

MOUNTAIN VIEW PRESS INC. 
P.O. BOX 4656, Ml. VIEW, CA 94040 

Dealer for 

PARSEC RESEARCH 

Drawer 1776, Fremont, CA 94538 
AUTHOR INQUIRIES INVITED 

976) Commodore 64 & VIC-20 TM of Commodore 



Ordering Information: Checic, Money Order 
(payable to MOUNTAIN VIEW PRESS, INC.), 
VISA, MasterCard, American Express. COD's 
$5.00 extra. No billing or unpaid PO's. Cali- 
fornia residents add sales tax. Shipping costs 
in US included in price. Foreign orders, pay 
in US funds on US bank, include for handling 
and shipping $10. 
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Forth P-Code Interpreter 




A.J. Monroe 
Los Angeles, California 

In a series of three articles in BYTE 
magazine (September, October, No- 
vember 1978), Kin-Man Chung and 
Herbert Yuen published a "Tiny" Pascal 
compiler (written in North Star BASIC), 
a p-code-to-8080 translator (in the same 
language) and a p-code interpreter writ- 
ten in "Tiny" Pascal. 

The p-code generated by the compiler 
is relocatable and completely transport- 
able, whereas the output of the transla- 
tor is unique to the Intel 8080 microproc- 
essor instruction set (or Intel 8085 or 
Zilog Z-80). Further, since the pub- 
lished interpreter is written in "Tiny" 
Pascal, it can only be utilized with the 
published translator on an 8080-compat- 
ible computer. 

It recently occurred to this writer that 
a p-code interpreter could be easily writ- 
ten in Forth. This would serve two 
purposes. 

First, Forth is currently available on a 
wide selection of microprocessor types 
at a very reasonable price, through the 
good offices of the Forth Interest Group, 
among others. Such an interpreter 
would, of course, execute considerably 
slower than the translated p-code, but 
this is offset by the fact that this ap- 
proach effectively circumvents the lack 
of an appropriate translator. 

Second, if the interpreter were to be 
written closely following the Chung/ 
Yuen interpreter, it could serve as a 
unique way of introducing those already 
familiar with Pascal to the Forth lan- 
guage. Personally, I have always found 
it easier to learn a language from the 
study of examples: one example in a 
language with which I am already famil- 
iar and another example being the same 
program in the new language. 

I do not mean to imply that the reader 
will find this article to be a tutorial on 
Forth. Anyone who is totally unfamiliar 
with the language will have to do con- 
siderable boning up to fully understand 
the Forth hsting; but some explanation 
will be given as we go along, and as a 
result the reader should hope to gain 



some appreciation of the similarities 
and differences between Forth and Pas- 
cal — and incidentally gain a program of 
interim usefulness. In particular, for 
those who already understand Pascal, I 
will wager that the Forth version of the 
interpreter will be surprisingly under- 
standable. 

The caveat "interim usefulness" de- 
serves some elaboration. The only strong 
arguments that this writer has ever heard 
against interpreters are that they are 
"slow compared to compiled code" and 
that they tend to be "memory hogs" in 
the sense that the interpreter and the 
program to be interpreted must reside in 
memory simultaneously — to the detri- 
ment of available programming space. 
Interpreters are not small programs, e.g. 
the Forth interpreter is 5800+ bytes and, 
including this writer's version of Forth, 
requires very nearly 16K of memory. 

In the present instance, the first objec- 
tion is perhaps the more serious one. 
Consider the Pascal listing in figure one. 
This program writes and reads to abso- 
lute memory the ASCII characters from 
A to the left bracket symbol and outputs 
them to the console. The program gener- 
ates thirty-one p-codes (a total of 124 
bytes). When interpreted, the program 
requires the execution of 555 instruc- 
tions because of the FOR loop con- 
struct. If the program is translated to 
8080 object code (again 124 bytes) and 
executed, it will complete execution in 



somewhat under one second. If the p- 
code is interpreted by the object code 
version of the Chung/ Yuen interpreter, 
execution will be completed in about 
five seconds, i.e. five times slower than 
the execution time of the translated pro- 
gram. If this same p-code is interpreted 
by the interpreter written in Forth, exe- 
cution will require about twenty-three 
seconds, another factor of five in in- 
creased execution time. 

This last execution time is not a 
serious objection if the Forth interpreter 
is being used for debugging purposes, 
but clearly it is not likely to be accepta- 
ble after debugging is completed, espe- 
cially when you know that you can get 
twenty-three times faster execution from 
the object code! As noted above, the 
program is intended primarily as a cross- 
programming example, an aid to under- 
standing Forth given that the reader is 
already famihar with Pascal. 



Forth and Pascal: 
Some Comparisons 

Figure two lists the Chung/ Yuen inter- 
preter written in Pascal. Figure three 
lists a Forth version which, in terms of 
structure, emulates closely the listing in 
figure two. The chief difference is one of 
syntax and mnemonics. But the casual 
reader who is already familiar with Pas- 
cal should see many points of similarity 
between the two listings. 



URR 1 : integer; 

MN : ftRR(=lVC26J OF INTEGER; 

BEGIN 

FOR l:=0 TO 26 DO 

BEGIN MEMCI3: = I+65; MNC I 3 : =MEMC I ] ; 
WRITE'.'iMNCir^ 

end; 

UIRITE<10.. 13:) 

END, 

Figure One 

"Tiny" Pascal program that reads and writes to absolute memory 
locations 
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This congruence is not entirely an 
artifice designed by the writer. There 
are, it is true, many significant differen- 
ces in mnemonics and syntax between 
the two languages, but consider the 
similarities: 

Both languages require that variables 
and constants be declared before use. In 
Pascal this is done right up front; in 
Forth any old place in the program will 
suffice, so long as it's before first usage. 
Both languages are highly structured 
and use similar constructs, such as 
IF.. .THEN.. .ELSE... and BEGIN... 
END. The use of GOTO is impossible in 
Forth and, although not forbidden in 
Pascal, it is frowned upon by the purist 
and is not supported in "Tiny" Pascal in 
any event. 

Rudimentary Forth does not support 
a CASE statement, nor does it have 
ARRAY. But Forth is inherently extensi- 
ble (as opposed to Pascal and most 
other languages) and such constructs 
may, therefore, be added quite easily. 
This is illustrated in the listing of figure 
three in screens 54, 55 and 56. 

Pascal supports "procedures" and "func- 
tions." Entirely analogous to the Pascal 
procedure, in Forth we have the "word" 
(colon) construct. In fact, everything in 
Forth is a procedure, including the main 
program, which is simply one more 
procedure which invokes all the others 
as needed and is itself just one more 
word in the language. Pascal is very sim- 
ilar in this respect. 

On the other hand, Forth uses postfix 
(reverse Polish) notation, whereas Pas- 
cal and most other languages utilize 
infix notation. This is usually the biggest 
stumbling block to understanding en- 
countered by the newcomer to the lan- 
guage — unless, of course, he cut his 
teeth on an HP calculator. 

Invoking the name of a variable in 
Forth ordinarily puts the address of that 
variable on the stack, whereas in Pascal 
the current value of the variable is 
placed on the stack. But, if we wish, we 
can alter (extend) Forth to do the same 
as Pascal via the TO-VARIABLE construct 
shown in screen 57. 

Both languages are stack-oriented 
(zero address) languages. 



-'•P-CODE INTERPRETER BV H. VUEN,-- 
CONST U= 1 5 ; BPL I M=5 ; S I ZE=50& J £ 1 2E 1 =486 J 
WR 2 .. P , B .. T , BP .. P© .. TP .. cm .. 1 .. J .■ K .. STOP : I NTEGER ; 
S!flRRftVtSlZE3 OF INTEGER; 
TRHCE:RRRftVCIJ3 OF INTEGER; 
m:flRR8VC26] OF INTEGER; 
BRERK:flRRHVCBPLIM3 OF INTEGER; 
.- IMPORTHHT GLOBRL WRIRBLES: 
PrpROGRRM COUNTER B:BRSE POINTER 

T:STRC:K POINTER BP: BREAK PNT INDX 

TP: TRACE STRCK PNTR K: INSTRUCTION COUNTER 

S:DRTR STRCK 2::STRT RDDR OF P-CODE 

FUNC BRSE'XEU;); 
WR Bl : integer; 
BEGIN Bl:=B; 
WHILE LEU>8 DO BEGIN 

B 1 : =S C B 1 3 ; LEU : =LEU- 1 FNC) ; 
BRSE:=B1 
END -'BRSE-'-; 
PROC I NIT; 
MRR l: integer; 

BEGIN T: =0;B; =1 ;p: =0;STCiP: =6; 
Stn:=e;St23:=e;SC33:=-l; 

pe:=ci;TP:=u;K:=e; 

FOR l:=e TO U DO TRRC:EtI3:=-l 
END -'INIT-'-; 
PROC CRI F : 

BEGIN WRITE CIO.. 13> END; 
PROC exec:; 
URR X .. R .. I .. F .. I DX : I NTEGER ; 
BEGIN X:=P SHI 2+2. : 

fl:=MEM[:X+33 SHL 8 +MEMtX+2a; 

Tp:=TP+l;IF TP>U THEN TP: =6; 

TRflCEtTP3:=P; 

p:=P+l;Pe:=P;K:=K+l ; 

F:=MEMCXD; 

IF F<=S THEN TDX:=0 

ELSE BEGIN IDX: =1 ;F: =F-16 END; 
CRSE F OF 
e:BEGIN T:=T+l;SCTl:=R END; 
l: CRSE fl OF 
0: BEG IN .'RETURN-' 

T;=B-1 ;B: =SCT+?T;P:=Sr_T+33 END; 
1 :SCT3:=-SCT3; 
2 :BFnTH T:=T-1 :srTl:=SCT]+SCT+U END; 



Figure Two 
P-code interpreter written in "Tiny" Pascal 



On the other hand, there are pro- 
found differences between the two lan- 
guages. A Pascal program must first be 
compiled to be executed. To the con- 
trary, the Forth listing in figure three is 
executable as soon as it has been typed 
into Forth, simply by invoking the proce- 
dure MAIN of screen 67 by typing its 
name. 

Forth supports an "immediate" mode 
of execution as is usual with interpre- 



ters, and also a "compile" mode. Pascal 
is usually compiled, and this writer is 
unaware of any implementation which 
permits an immediate mode of execu- 
tion. 

Forth supports a native code assem- 
bler so that "code" words can be gener- 
ated and used as simply and naturally as 
words defined by the colon construct. 
Three crucial examples of this feature 
are shown in screen 56. Such linkage is 
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SCR # 54 

C DR. EHKER-'S CHSE CONSTRUCT WITH fl SLIGHT MQDIFICRTION > 

1 ■; SEE FORTH DIMENSIONS MOL 2 NO. 3 PQ 37-40 -> 

2 : CFISE ?COMP CSP * !CSP 4 ; IMMEDIATE 

3 ! <0F> OUER = IF DROP 1 ELSE © END IF ; 

4 : OF 4 ?PftIRS COMPILE .;0F::' COMPILE SBRFlNCH 

5 HERE , 5 J IMMEDIATE 

6 •■ ENDOF 5 ?PFIIRS COMPILE BRfiNCH HERE 8 .. SWAP 2 

7 [COMPILE 3 END IF 4 i IMMEDIATE 

8 : ENDCftSE 4 7PAIRS COMPILE DROP BEGIN SP'S CSP * = 9 = 

9 WHILE 2 C COMPILE I END IF REPEAT CSP <. : IMMEDIATE 

10 

11 : 1- 1 - J 

12 

13 

14 

IS —> 



SCR « 55 

< <0F> >0F.. AND RNG-OF EXTENSIONS TO DR. ERKER'S CASE 

1 : t;<OF) OUER > IF DROP 1 ELSE 8 END IF ; 

2 i <0F 4 7PAIRS COMPILE ';<0F:) COMPILE OBRANCH 

3 HERE e . 5 J IMMEDIATE 

4 : OOF) OUER < IF DROP 1 ELSE EHDIF ; 

5 ! >0F 4 7PAIRS COMPILE .;>0F> COMPILE eBRAHCH 
fc HERE - 5 J IMMEDIATE 

?' : RFIHGE >R OUER DUP R5 1+ < IF SWAP 1- > IF DROP 1 ELSE 

8 END IF ELSE DROP DROP 8 END IF ; 

9 ! RHG-OF 4 ?PAIRS COMPILE RANGE COMPILE 0ERAHCH HERE .• 
10 IMMEDIATE 

1 1 
12 
13 
14 

15 — > 

SCR « 56 

(. CODE WORDS LSHFT AND SHL ) 

1 CODE LSHFT < LOGICAL SHIFT LEFT ONE BIT :> 





H POP 


GET DATA WORD FROM STACK 


3 


A XRA 


CLEAR THE CRRRV > 


4 


L A MOU 


< GET LEAST SIG. BVTE J 


5 


RAL 


< SHFT LEFT INTO CRRRV :> 


& 


A L MOU 


< RSTR LERST SIG. BVTE ':> 




H A MOU 


< GET MOST SIG. BVTE > 


8 


RAL 


SHFT LEFT - CV TO LSB :> 


9 


ft H MOU 


i RSTR MOST SIG. BVTE ) 


10 


H PUSH 


< PUT WORD BRCK ON STACK > 


1 1 
12 


NEXT JMP 


RETURN TO FORTH > 


13 : 


SHL DO LSHFT LOOP ; 




14 






15 - 







Figure Three 
Forth p-code interpreter 



non-existent in Pascal and the majority 
of other high-level languages. The SHR, 
SHL and CALL reserved words of 
"Tiny" Pascal had to be built into the 
compiler, a non-trivial task at best. They 
are simply and directly mechanized as 
code words in Forth, as is illustrated in 
screen 56. 

But it is not the differences between 
Pascal and Forth that were of signifi- 
cance in developing the listing shown in 



figure three. Rather, it is the fact that 
both languages are sufficiently similar in 
construction that the hsting in figure 
two could be translated with almost 
one-to-one correspondence into Forth 
constructs, and almost as rapidly as it 
was possible to type! The writer must 
confess that this high degree of corres- 
pondence was not at all self evident at 
the outset. In retrospect, this appears to 
have been largely due to the superficial 
differences in mnemonics. 



The Pascal p-code interpreter makes 
extensive use of PROC, CASE and 
ARRAY. P^OC, short for "procedure," 
presents no problems in direct transla- 
tion to Forth. As noted earlier, Forth's 
colon construct is completely analogous 
to the Pascal PROC. However, rudi- 
mentary Forth does not support CASE 
or ARRAY, and they must be added to 
the language if a direct emulation of the 
interpreter is to be achieved. 

A CASE construct is shown in screen 
54 and 55. This particular construct was 
developed by Dr. Eaker and is explained 
in detail in Forth Dimensions (H/S). 
The reader should refer to that excellent 
article for details. Screen 55 is this writ- 
er's augmentation of Dr. Eaker's CASE 
construct. The <0F tests for "less than," 
>0F tests for "greater than" and RNG-OF 
tests for inclusion in the range between 
two integers. These three additions 
should be easy to understand from the 
explanations given in Dr. Eaker's article 
on the earlier CASE constructs. 

There are several ways in which an 
ARRAY construct may be implemented in 
Forth. Screen 59 illustrates one such 
definition. The word ARRAY is used as 
follows: 

size ARRAY array-name 

During compile time, size reserves 
that number of sixteen-bit words with 
index addresses through size-1. At 
execution time, invoking array-name 
will cause the top number on the data 
stack to be interpreted as the index 
address of the word (array element) to 
be accessed in the array. This number is 
first checked to see that it is within the 
valid index address range. If not, an 
error message is output to the console 
and program execution is terminated. 
Otherwise, the absolute memory address 
of the desired array element replaces the 
index address on the top of the data 
stack. To store an item, one types: 

value-to-be-stored index-address array- 
name ! 

To retrieve an element from the array, 
one types: 
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Multiuser/Multitasking 

for 8080, Z80, 80Q6 




TaskFORTH™ 

The First 
Professional Quality 
Full Feature FORTH 
System at a micro price* 

LOADS OF TIME SAVING 
PROFESSIONAL FEATURES: 

ir Unlimited number of tasl<s 

•{t Multiple thread dictionary, 
supertast compilation 

•tr Novice Programmer 
Protection PackageiM 

•sS- Diagnostic tools, quick and 
simple debugging 

St^.'ting FORTr^, PO:^TH-79, 
FORTH-83 compatible 

Screen and serial editor, 
easy program generation 

Hierarchical file system with 
data base management 

* starter package $250. FuH package $395. Single 
user and commercial lk;anses available. 

If you are an experienced 
FORTH programmer, this is the 
one you have been w/aiting for! 
If you are a beginning FORTH 
programmer, this will get you 
started right, and quickly tool 

Available on 8 Inch disk 
under CP/M 2.2 or greater 
also 

various SV*" formats 
and other operating systems 

FULLY WARRANTED, 
DOCUMENTED AND 
SUPPORTED 

^Pl^ i I^UIRES 

Shaw Laboratories, Ltd. 

24301 Southland Drive, #216 
Hayward, California 94545 
(415) 276-5953 



e CODE WORD RSHFT.. SHR, AND TO-UfiR > 



1 


CODE RSHFT H POP ft XRfl H fi MOU RRR ft H MOU 






L R MCiU RRR ft L MOU H PUSH NEXT .JMP 


3 
4 




SHR DO RSHFT LOOP ; 


5 
6 


< 


DEFINITION OF BRRTHOUDI 'S TO-UftR > 


7 




SEE FORTH DIMENSIONS UOL 1 NO. 4 PG 33-48 '> 


8 





UftRIflBLE ;-;T0 : TO 1 ;-.T0 ! ; 


9 

10 




TO-URR < BUILDS HERE 2 ALLOT ! 


11 




DOES> ;-;to « IF ! ;-;to ! else « end if ; 


12 






13 






14 






15 







SCR « 58 

< CODE WORD CRLL ) 

1 CODE CRLL RESOLUTE MEMORV CALL TO OB..T CODE ROUTINE > 

2 SRIJE THE FORTH INSTR. PNTR IN THE DICTIOHRRV > 

3 I ' L mu I H MOU HERE 6 + SHLD 

4 HERE 5 + .JMP < JUMP OUER THE STORE LOCRTION > 

5 e ft MUI < THIS IS STORE LOCftTION SflUED B\' DUMMV INSTR. > 

6 H POP < GET THE ADDRESS TO BE CRLLED ) 

7 HERE 4 + SHLD PUT RDDR INTO CALL INSTR. ) 
S CRLL DUMMS-" CALL FILLED BV HBOUE > 

9 < OBJ LNG RTN WILL RETURN HERE .) 

10 < NOW RSTR FORTH INSTR. PNTR 5 

11 HERE 9 - LHLD H PUSH I POP 

12 NEXT JMP < RETURN TO FORTH > 
13 

14 

15 — > 



SCR # 59 

DEFINITION OF RRRAV :) 

1 : ERRA ." ARRflV INDEX ERROR " . CR « 1- 

2 . " RRRAV INDEX RANGE = " . . " " . CR QUIT ; 

3 : ARRAS' < BUILDS DUP .. DUP SI2E * SAUE IN PRRAM FIELD > 

4 2 * >; t» OF BVTES TO ALLOT :> 

5 HERE CURRENT DP J 

6 2DUP + 2+ UPPER LIMIT OF DO LOOP J 

7 SWRP DO I ! 2 +LOOP (. CLEAR THE ARRAV > 

8 ALLOT RESERUE DICTIOtJftRV SPACE > 

9 DOES> 2DUP « < < TEST FOR UPPER RRRAV LIMIT :> 

10 IF SWAP DUP -1 > TEST FOR LOWER LIMIT :> 

11 IF 2 * + 2+ SET ARRAV RDDR ON STACK i 

12 ELSE ERRA END IF ELSE SWAP ERRA END IF ; 
13 

14 

15 — > 



SCR # 60 

< CONSTANTS, TO-URR.. AND MH FOR PASCAL INTERPRETER !) 

1 15 CONSTANT U 5 CONSTANT BPLIM 500 CONSTHNT SIZE 

2 480 CONSTANT SI2E1 

3 TO-UAR Z TO-URR Bl TO-UAR P 9 TO-URR B 

4 TO-UAR LEU TO-UftR T TO-UAR BP 6 TO-UAR BASER 

5 TO-URR P0 TO-URR TP TO-UAR CMD TO-UAR K 

6 TO-UAR J TO-URR K TO-URR STOP TO-i...iflR PC 

7 TO-UftR IPX TO-URR EXIT TO-UftR A TO-URR F 

8 SIZE RRRAV S U ARRRV TRACE 27 ARRAV MN 

9 BPLIM ARRAV BREAK TO-UAR L TO-UAR HN 

10 76 MN ! 73 1 MH ! 84 2 MN ! 79 3 MH ! 80 4 MH ! 

11 82 5 MN .' 76 6 MN .' 79 7 MN ! 68 S MN i S3 9 MN ! 

12 S4 10 MN ! 79 11 MN i 67 12 MN ! 65 13 MH ! 76 14 MN I 

13 73 15 MN ! 78 16 MN ! 84 17 MN '. 74 IS MN ! 77 19 MN ' 

14 80 20 MN ! 74 21 MN ! 30 22 MN ! 67 23 MN ! 67 24 MN ' 

15 83 25 MN ( 80 26 MN ! — > 
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SCR « 61 

< TERMINflL INPUT FOR PftSCflL INTERPRETER > 

1 ! ERRD CR . " SVNTRK ERROR " CR DROP ; TD-UfiR SGH 

2 ! RDCHR BEGIN 35 P'S 2 HND UNTIL 34 P« 127 AND ; 

3 : URCHR BEGIN 35 P* 1 RNO UNTIL 34 P ! ; 

4 : RDDEC DUP DUP TO EXIT TO SGN BEGIN RDCHR DUP WRCHR DUP 



5 CRSE 13 OF 1 TO EXIT ENDOF 

6 48 57 RNG-OF 48 - SWAP 10 * + ENDOF 

7 45 OF SGN = IF TO SGH ELSE ERRD END IF 

8 ENDOF ERRD ENDCflSE EXIT UNTIL DROP CR 

9 SGN > IF MINUS ENDIF ; 

le RDHEX DLIP TO EXIT BEGIN RDCHR DUP WRCHR DUP 

11 CftSE 13 OF 1 TO EXIT ENDOF 

12 48 57 RNG-OF 48 - SWFlP IS * + ENDOF 

13 65 70 RNG-OF 55 - SWAP 16- * + ENDOF 

1 4 ERRD 

15 ENDCRSE EXIT UNTIL DROP CR } — > 



SCR # 62 

SBRSE HND INIT FOR PHSCHL INTERPRETER > 

1 ! SBRSE B TO Bl BEGIN LEU WHILE Bl S * TO Bl 

2 LEU 1- TO LEU 

3 REPERT 

4 Bl TO BRSER ; 

5 : INIT TO T TO P 1 TO B TO STOP 1 S ! ■? S ' 

6 -1 3 S ! TO P0 U TO TP TO l<; U 

7 DO -1 1 TRRCE ! LOOP ! 
8 

9 : <= 1+ < ; : >= 1- > J : <> = IF ELSE 1 ENDIF ; 

10 : T-1 T 1- TO T J : T+1 T 1+ TO T ; 

11 : NOT 0= IF 1 ELSE 8 ENDIF J 
12 

13 

14 — > 
15 



SCR # 63 

< BEGINNING OF EXEC FOR PftSCRL INTERPRETER :> 

1 : S<T) T S « ; ! S<T+1> T 1+ S « : 

2 : S':T>= T S ! ; 

3 s EXEC P 2 SHL Z + TO X X 3 + C«! S SHL 



4 X 2+ C'S + TO H TP 1+ TO TP TP U 1- > IF S TO TP ENDIF 

5 P TP TRACE ! P 1+ DUP TO P TO P0 K 1+ TO K 

6 X C« TO F F S <= IF TO IDX ELSE 1 TO IDX F 16 - TO F 

7 ENDIF F 

8 CfiSE OF T+1 R S';T>= ENDOF 

9 1 OF R 

10 CASE OF B 1- TO T T 2+ S « TO E 

11 T 3 + S « TO P ENDOF 

12 1 OF S';T> MINUS S<T:)= ENDOF 

13 2 OF T-1 s<t:) S';t+i> + S';t)= endof 

14 3 OF T-1 S<T> S':T+1> - S';T)= ENDOF 

15 4 OF T-1 5iJ> S<T+1> * S':T)= ENDOF — > 



SCR # 64 

EXEC CONTINLIED ) 



1 5 OF T-1 s<T) S';t+i:> -■■ s<J:'= endof 

2 6 of s<T) 1 AND s.;t:)= endof 

3 7 of t-1 s<t> s^t+o mod S';t:)= endof 

4 8 OF T-1 S^J? S<T+1> = S';T)= ENDOF 

5 9 OF T-1 S';t> S';t+o <> S';t>= endof 

6 10 of t-1 S';t> s<t+i> < S';t:)= endof 

7 11 of t-1 s<t) s<t+i:) >= s<t>= endof 

8 12 of t-1 s<t> sct+o > S';t)= endof 

9 13 OF t-1 S';t> S';t+i:) <= s<t)= endof 

10 14 OF t-1 S';t) s<t+1) or si;t>= endof 

11 15 of t-1 s<t:) S';t+i;> and sct>= endof 

12 16 of sct) not S':t>= endof 

13 17 OF T-1 s<t> S';t+i> SHL S';t:)= endof 

14 18 of t-1 s<t) S';t+i:) shr S';t:)= endof 

15 19 of S<.T) 1+ 5<T)= ENDOF — > 



In order to make the one-to-one cor- 
respondence between figures two and 
three more evident, we have defined the 
words S(T), S(T+1) and S(T)= on screen 63. 
S(T) retrieves the Tth array element of 
array S and places it upon the top of the 
data stack. Similarly, S(T+1) retrieves the 
T+1 St array element and S(T)= stores the 
data word from the top of the stack into 
the Tth element. For example, the code 
sequence 

S(T) S(T+1) + S(T)= 

sets the Tth element of array S to the 
sum of itself and the T+lst element. 

As mentioned earlier, Bartholdi's TO 
construct (screen 57) is used to place the 
value of a variable on the stack when its 
name is invoked. To store a value into 
the variable, one types: 

value TO variable-name 

For example, A TO P puts the value of 
variable A on top of the stack and then 
stores it into variable P. 

In the Pascal listing in figure two, 
array MN is used to store the mnemon- 
ics of the opcodes which are read from 
memory. In the Forth listing, these 
mnemonics are simply stored directly 
into the MN array (screen 60). This 
could, of course, have been done in Pas- 
cal as well. 

The "Tiny" Pascal reserved words 
SHR, SHL and CALL are not normally 
a part of Forth syntax. They can be 
directly implemented using the Forth 
CODE words shown in screens 56 and 57. 

The READ and WRITE constructs 
of Pascal are emulated in figure three as 
RDCHR, WRCHR, RDOEC and RDHEX. 
RDCHR reads an ASCII character from 
the console and places it on the stack, 
and WRCHR takes an ASCII character 
off the stack and writes it to the console. 
These words are defined in screen 61. In 
the writer's system, the input/ output 
flag port is 35. If bit one of this port is 
set, the port is ready to accept an output. 
If bit two is set, the port has a character 
ready to be input. The data port is 34. 
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Winning 
Combination 




The 
EMS n68K 

and 
4XF0RTH"' 

Features 

■ 5 or 1 MHz 68000 CPU 

■ 1 28K RAM and Disk Controllers 

■ 7 Level Vectored Interrupts 

■ 2-RS232C Serial Ports 

■ 16 Bit Parallel I/O Port 
■5-16 Bit Counter /Timers 

■ Peripheral Expansion Bus 

• 4xF0RTH ROM based Operating 
System vhich includes 

■ "83 Standard Forth vith 
32 Bit Variables and Stack 

■ 68000 Assembler with 
Opcode /Mode Error Checking 

• Dynamically Changable Disk 
and RAM Disk 

■ Full Screen Editor 

■ Terminal Independence 

• Networking Facilities 

■ Clock Queues 

■ 495 Headered , 350 Header- 
less Definitions and 



■ Much More including 



Speed 

The M68K and 4xF0RTH run the 
Sieve of Eratosthanes*1 in 
9 .6 seconds (7 .5 sec with the 
optional Forth Accelerator'") 

by 



IE/M% Inc. 

p. 0. Box 16115 
Irvine, CA 92713 
714/854-8545 



and 

7T»e Dragon &roup 

1 48 Poca Fork Road 
Elk vie V, VV 25071 
304/965-5517 

4xF0RTH and Forth Accelerator 
are Trademarks of 
The Dragon Group ^ Inc. 



©1984 by TDG, Inc 




SCR 




&5 










6 




EXEC 


CONTINUED > 






1 








28 OF S<T> 1- S<T> = 


ENDOF 


2 








21 OF T+1 T 1- S '8 S<T> = 


ENDOF 


3 








ILLEGAL OPR" CP. 1 TO STOP 




4 








ENDCRSE 


OF fl ) ENDOF 




5 


2 


OF X 


1 + 


C« DUP TO L 


255 = IF S';T> DS! s<t:) = 




6 








ELSE 


IDX IF Fl S<r> + TO Fl ENDIF T 1 + 


IDX - 












TO T L TO LEU SBHSE BASER fl + S 


•8 S<T> = 


8 










ENDIF ENDOF 




9 


3 


OF X 


1 + 


C« DUP TO L 


255 = IF S<T> T 1- S a CI T 2 - 


TO T 


10 










ELSE IDX IF T 1- S « H + TO 


R ENDIF 


11 










L TO LEU SBflSE BASER fl 


+ s>;t) 


12 










SUHP S ! T 1- IDX - TO 


T 


13 










ENDIF ENDOF 




14 


4 


OF X 


1 + 


C« DUP TO L 


255 = IF S<T) CALL T-1 




15 




ELSE 


L TO LEU SBflSE BASER T 1+ S ! B T 2+ S ! — 





SCR # «6 

EXEC CONTINUED ) 

1 P T 3 + S ! T 1+ TO B H TO P ENDIF ENDOF 
2 

3 5 OF T SIZEl R - > 

4 IF . " STACK OUERFLOW " CR 1 TO STOP 

5 ELSE T A + TO T ENDIF ENDOF 

6 6 OF A TO P ENDOF 

7 7 OF X 1+ C« s>:t) = 

8 IF R TO P ENDIF T-1 ENDOF 

9 8 OF A CASE 

18 OF T+1 RDCHR S';T)= ENDOF 

11 1 OF S<T> URCHR T-1 ENDOF 

12 2 OF T+1 RDDEC S<T:>= ENDOF 

13 3 OF S<T? URCHR T-1 ENDOF 

14 4 OF T+1 RDHEX S':T>= ENCJOF 

15 5 OF Si;T> .4H t-1 ENDOF — > 



SCR « 67 

< EXEC CONTINUED > 

1 8 OF T DUP S<T> - 

2 DO I S « WRCHR LOOP T S 

3 . " ILLEGAL CSP " CR 1 TO STOP 

4 ENDCASE C OF A > ENDOF 

5 . " ILLEGRL OPCODE " CR 1 TO STOP 

6 ENDCASE OF F & END OF EXEC > ; 



<T) 



TO T ENDOF 



9 
10 

1 1 e TO-MAR ID 

12 

13 

14 

15 — > 



SCR 

1 



8 
9 
10 
1 1 
12 
13 
14 
15 



# 68 

PROCEDURES PCODE AND CKBP OF PASCAL INTERPRETER :> 
: PCODE PC 2 SHL Z + TO X X C« 3 * DUP TO HH 
24 <= IF 32 TO ID ELSE HN 48 - TO HH 
88 TO ID ENDIF 
." " PC . ." " HN MH « URCHR HN 1+ MN 'H WRCHR 
NN 2+ MN « WRCHR 

ID WRCHR ." " X 1+ on . ." .■ " X 3 + Oi 3 SHL 
X 2+ C'Sr + . CR ; 
: CKBP P e< IF 1 TO STOP ELSE BP > IF BP 6 DO 

P I BREAK 4 = IF CR ." BREAK " P TO PC PCODE 1 TO STOP 
ENDIF LOOP ENDIF ENDIF ; 
< DEFINITION OF STRING CONSTANTS FOR MAIN > 



'R' 82 ; 

'T' 84 ; 

'V' 89 ; 

'Q' 81 ; 



■'S' S3 1 
■'K ' 75 ; 
■'E' 69 ; 



'X' 88 
■'B' 66 
■'U ' 85 



-G- 71 

■'C ' 67 
■'N-' 78 
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SCR « 69 

( BEGIN vMflIN"-. OF PHSCflL INTERPRETER 

1 : MRIN CR ." P-CODE START ADDRESS IN HEX? " RDHEK TO Z 

2 CR I NIT P TO PC PCODE 6 TO BP 

3 BEGIN . " >" RDCHR PUP URCHR CR 

4 CftSE -'R' OF TO STOP BEGIN EXEC CKBP STOP UNTIL EHDOF 



5 'S' OF EXEC P TO PC PCODE ENDOF 

6 'X' OF ." p=" p . ." B=" B . ." T=" T . ." S';T:i=" S';t:) . 

7 ." S';T-1> = " T 1- S € . CR EHDOF 

8 'G' OF INIT BEGIN EXEC CKBP STOP UNTIL EHDOF 
3 'T' OF . " *TRACE*" CR U 6 DO 

le TP 1+ DUP TO TP U 1- > IF TO TP EHDIF 

11 TP TRACE « >= IF TP TRACE « TO PC PCODE EHDIF 

12 LOOP ENDOF 

13 'K- OF ." ? " RDDEC DUP 7 + SWAP DO 

14 ." " I S « . CR LOOP ENDOF 

15 'B-' OF BP BPLIM < IF BP 1+ DUP TO BP . . " :" — > 

SCR # 70 

< vMfilNx CONTINUED > 

1 RDDEC BP 1- BREAK ! CR END IF EHDOF 

2 -"C ' OF TO BP CR ENDOF 

3 'V OF BP > IF BP DO ." "I BREAK <t . CR LOOP EHDIF 

4 ENDOF 

5 ■'E' OF . " ? " RDDEC DUP TO P0 TO PC PCODE EHDOF 

6 'U' OF P0 > IF P0 1- DUP TO P0 TO PC PCODE END IF ENDOF 

7 'N' OF P0 1+ DUP TO P0 TO PC PCODE EHDOF 

8 'Q' OF -1 TO P ENDOF - 

9 ." UNRECOGNIZED COMMAND " CR 



10 ENDCASE < OF CMD> 

11 P < UNTIL 

12 CR K . ." INSTRUCTIONS EXECUTED " CR ; 
13 

14 
15 



RDDEC accepts a decimal number from 
the console as input to the stack, using 
RDCHR. Similarly, RDHEX accepts a hex- 
adecimal number. As in any language, 
these routines are hardware dependent 
and must be modified by the reader to 
suit his system. 

The procedure SBASE (screen 66) is 
used in lieu of the Pascal function 
BASE. The colon definitions INIT (screen 
62), EXEC (screens 63 through 67), PCODE 
(screen 68) and CKBP (screen 68) are 
direct translations of their Pascal coun- 
terparts. MAIN (screen 69 and 70) is the 
super-procedure in Forth which emu- 
lates the MAIN body of the Pascal list- 
ing. Finally, the names of the variables 
have been kept pretty much the same to 
facilitate comparison of the listings. 
They are declared in screen 60. 

Using the Forth P-Code Interpreter 

The Forth interpreter is self contained. 
Unlike the Pascal interpreter, it requires 
no explicit run-time support package, 
since it is completely embedded in, and 
supported by. Forth. Note, however, 



that one could reduce Forth to the min- 
imum kernel required to run this inter- 
preter. This residue would then be en- 
tirely analogous to the Pascal run-time 
support package. 

In this writer's system, Forth occupies 
memory from 2D00H to 9000H and is 
supported by the North Star DOS lo- 
cated at 2000H up to 2A00H. Since the 
p-code to be interpreted is totally relo- 
catable, it may be loaded anywhere 
below 2000H or above 9000H in the writ- 
er's system. Note that for a Pascal sys- 
tem which writes to memory, as does 
that in figure one, precautions must be 
taken to avoid writing over the p-code 
itself or into the region of DOS or 
Forth. 

To invoke the interpreter once it has 
been typed into Forth, simply type MAIN. 
From there on, the interpreter behaves 
exactly like the Pascal version. Figure 
four is a partial example of its use on the 
p-code generated from the program in 
figure one. The reader should refer to 
the original Byre magazine articles for 
further details on use of the interpreter. 



MicroMotion 

MasterFORTH 

If s here- the next genera- 
tion of MicroMotion Forth. 

• Meets all provisions, extensions and 
experimental proposals of the RDRTH- 
83 International Stondard. 

• Uses the host operating system file 
structure (APPLE DOS 3.3 & CP/M 2.x). 

• Built-in micro-assembler with numeric 
local labels. 

• A full screen editor Is provided which 
includes 16 x 64 format can push & 
pop more than one line, user defin- 
able controls, upper/lowercase t<ey- 
board entry, A COPY utility moves 
screens within & between lines, line 
stacl<, redefinable control keys, and 
search & replace commands. 

• Includes all file primitives descrilDed 
In Kemigan and Piouger's Software 
Tools . 

• Theeditorossembierandscreencopy 
utilities are provided as relocatable 
object modules. They are brought 
into the dictionary on demand and 
may be released with a single com- 
mand. 

• Many l<ey nucleus commands are 
vectored. Error handling, number par- 
sing, keyboard translation and so on 
can be redefined as needed by user 
programs. They are automatically re- 
turned to their previous definitions 
when the program is forgotten. 

• The string-handling package is the 
finest and most complete available. 

• A listing of the nucleus is provided as 
part of the documentotior 

• The language Implementation ex- 
actly matches the one described In 
MASTERING FORTH , by Anderson & 
Tracy. This 200 Page tutorial and re- 
ference manual Is included with 
MasterFORTH. 

• The Input and output streams are 
fully redlrectable. 

• Floating Point & HIRES options avail- 
able. 

• Available for APPLE ll/IH-/lle & CP/M 
2.x users. 

• MasterFORTH - $100.00. FP & HIRES - 
$40.00 each 

• Publications 

• MASTERING FORTH - $20.00 

• 83 Interrrationol Standard- $15.00 

• FORTH-83 Source Listing 6502, 
Z-80,8086 - $20.00 each. 



Contact: 

MicroMotion 

12077 Wilshire Blvd.. Ste. 506 
Los Angeles, CA 90026 
(213) 821-4340 
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llntroducinQ 

32 bit Single Board 
Super Micro 

with 
4xF0RTH'^ 

Features 

■ Mounts Directly on 5 1/4" 
Disk Drive 

■ 8 MHz 32 bit 68008 micro 

■ 128K on Board RAM 

■ 2-Bbit Parallel Ports 

■ 2-RS-232 Serial Ports 

■ Floppy Disk Controller for up 
to four 5 1/4,3 1/2,3 1/4, 
or 3" Disk Drives 

■ 4xF0RTH ROM based Operating 
System which includes 

■ 83 Standard Forth with 
32 Bit Variables and Stack 

■ Full Screen Editor 

■ Error Checking Assembler 

■ Terminal Independence 

■ Networking Facilities 

■ Dynamically Changeable Disk 
and RAM Disk 

■ Clock Queues 

■ 495 Headered, 350 Header- 
less Definitions and 

■ Much, Much More 

A Realtime Tool 
for 

Professional 
Programmers 

by 



f merald 
•Computers 

4000 S.E. International Vay 

Suite F203 
Milwaukie, Oregon 97222 
503/654-9666 



and 



7l»e Dromon &roup 

148 Poca Fork Road 
Elkview, West Virginia 25071 
304/965-5517 

, 4xF0RTH is a Trademark of 
r| The Dragon Group, Inc. Km 
BS 1©1984,by TDCIncf rlB 



3 :BEGIN T:=T-l;StT3:=SCT3-SCT+n END; 

4 SBEGIN T:=T-l;SCT3:=SCT3*SCT+n END; 

5 :BEGIN T:=T-1;SCT3:=SCT3 DIU SCT+n END; 
e :SCT3:=SCT] RND 1; -'TEST FOR ODD--' 



7 : BEGIN 

8 SBEGIN 

9 ."BEGIN 
10: BEGIN 
lirBEGIN 
12: BEGIN 
13:BEGIN 
14: BEGIN 
15: BEGIN 



=T-l;SCT3:=SCT3 MOD SCT+U END; 
=T-l;SCT3:=SCT3=St:T+13 END; 
=T-l;S[;T3:=SCT3<>StT+n END; 
=T-l;SCT3:=SCT3<SCT+13 END; 
=T-l;SCT3:=SCT3>=SCT+13 END; 
=T-l;SCT3:=SCT3>SCT+13 END; 
=T-l;SCT3:=SCT3<=S[T+13 END; 
=T-1;SCT3:=S[:T3 OR SCT+13 END; 
=T-l;SCT3;=SCT3 f=IND SCT+13 END; 



16:SCT3:=NOT SCT3; 

17:BEGIN T:=T-l;SCT3:=StT3 SHL SCT+13 END; 

18:BEGIN T: =T-1 ;SCT3 : =SCT3 SHR SCT+13 END; 

19:SCT3:=SCT3+l; 

2ei:StT3:=SCT3-l; 

21 SBEGIN .-COPV-'- 

T:=T+l;SCT3:=SCT-13 END 
ELSE BEGIN WRITE-; ' ILLEGRL OPR ' > ;CRLF;STOP: =1 END 
END xCflSE OF fi-' i 
2: BEGIN -'LOflD.-' 
L:=MEMCX+13; 

IF L=255 THEN SCT3 : =MEMCSCT3 3 
ELSE BEGIN IF IDX THEN fl:=fl+SCT3; 

Ts=T+l-IDX;SCT3:=SCBflSE<L:)+fl3 END 

END; 

3: BEG IN --STORE-'' 
L:=MEMCX+13; 
IF L=255 THEN BEGIN 
MEMCSCT-133:=SCT3;T:=T-2 END 
ELSE BEGIN 
IF IDX THEN R:=SCT-13+Fi; 
S C BRSE < L > +fl 3 : =S C T 3 ; T : = T -1 - 1 DX END 
END; 
4: BEGIN --CHLL-'- 
Ls=MEMCX+13; 

IF L=255 THEN BEGIN CflLL';SCT3 ) ;T: =T-1 END 
ELSE BEGIN 

SCT+1 3 : =BfiSE<L:) ;SCT+23 : =B; 
SCT+33:=P;B:=T+l;P:=fl END 

end; 

5: IF T><SIZEl-ft> THEN BEGIN 

WRITE-: •' STRCK OUFLO ;C:RLF;STOP: =1 END 
ELSE T:=T+fl; 

7:BEGIN IF SCT3=MEMCX+1 3 THEN P:=fl; --JPC--- 

T:=T-1 end; 
8: CASE R OF --CSP-'- 

0: BEGIN T:=T+l;REflD-;SCT3> END; ■ IN CHRR--' 
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l: BEGIN WRITE<SCT3>JT:=T-1 END; -'OUT CHfiR-- 
2:BEGIN T:=T+liREFfD<SCT3*> END; -'IN NUMBER-'' 
3! BEGIN WRITE<SCT3«>;T:=T-1 END; -'OUT NUMBER-'' 
4! BEGIN T!=T+l;REHD<StT3> END; -'IN HEX-'- 
5: BEGIN URITE<SCT] > ;T! =T-1 END; -'OUT HEX-' 
8; BEGIN -'OUT STRING--' 

FOR IDX:=T-SCT3 TO T-1 DO WRITE-;SC IDX] > ; 
T:=T-SCT3-1 end 
ELSE BEGIN WRITE< '' ILLEGFIL CSP'' > ;CRLF;STOP: =1 END 
END -'-CflSE OF fty 
ELSE BEGIN WRITE<' ILLEGAL OPCODE'' >;CRLF;STOP; =1 END 

END -'CASE CF F-' 
END -'EXEC--'; 

PROC CODE<PC>; -'PRINT CODE--' 
KfPR X,N, IDX: INTEGER; 
BEGIN X!=PC SHL 2+2;N: =MEMCX3*3; 
IF N<=24 THEN IDX:=' ' 
ELSE BEGIN N: =N-4S; IDX: = ''X'' END; 

WRITE< ■' ■' , PC#. '' ■' . MNCN3 , MNCN+1 3 . MNCN+23 .. IDX.. " ' .• 
MEM C X+ 1 3 # . '' , '' . MEM C X+3 3 SHL 8 +MEM C X+2 3 # > ; CRLF 
END -'CODE--'; 
PROC CKBP; -'CHFCK BRFfiK POT NT--' 
UflR I : integer; 
BEGIN IF P<ei THFN ■qTnP; = l 
ELSE BEGIN . 
FOR l:=l. TO RP Dn 
IF BREfiKt:i3=P THFN BFGTN 
WR I TE < •' BPFFiK ' ') ; CODF CP'); 
ST0P!=1 FND END 
END -'CKBP-''; 
BEGIN -'MAIN-' 
FOR l:=e TO 2ft DO 

MNtI3!=MEMCI + lFS(?l3; -'MNEMONICS ARE IN MEMORV-' 
WRITE< 'FODR?' > ;RERD<Z) ;CRLF; 
INIT;C0DE'::P>;BP!=R: 
REPEAT U)R I TE •;'>'); RFRD CMD > ; 
CASE CMD OF 

'R': BEGIN STOP: =0; REPEAT EXEC;Ck'BP UNTIL STOP END; 
'S': BEGIN EXEC; CODE •;P> END; 
''X'; BEGIN 

WRITE< ' P='' , Ptt.. ' B= ' , Btt.. ' T=' .■ T#, 

' SCT3 = ''.SCT1«. ' SCT-n = '..srT-n«>;CRLF 

end; 

■-G': BEGIN I NIT; REPEAT EXEC; CKBP UNTIL STOP END; 
'T': BEG IN WRITE<' *TRACE* - > ;r:RLF; 
FOR l:=0 TO U DO BEGIN 
TP:=TP+l;IF TP>U THEN TP:=0; 

if tracectp3>=0 then code < trace c tp 3 > end 
end; 

•'k-': begin read<i«';*; 

for j:=i to 1+6 do 



C64-FORTH/79 

for the 

Commodore 64 

Now the best for less 

$69.95 



• C64-FORTH/79™ integrated 
professional developnnent 
environment. 

• See our reviews in INFO 64, 
MIDNIGHT, and NY CBMUG. C64- 
FORTH/79 is Commodore Approved. 

• High performance 2D graphics 
extension including HRES multicolor 
line, circles, scaling, windowing, HRES 
character graphics, sprites, ram 
characters, 10 demo screens and 
more. 

• Complete CBM compatible floating 
point package includes arithmetic, 
relational, SIN/COS, SQR, and more. 

• Professional, 21 command, cursor 
screen editor with virtual memory, 
conditional macro assembler, and 
debug-decompiler facility. 

• String extension for easy string 
processing. 

• Compatible with CBM peripherals, 
popular third party peripherals and 
C64 operating setup/memory 
configurations. 

• Easy to use 167 page manual written 
for the serious forth programmer with 
many examples, application screens, 
detailed command glossaries and 
compatible with "Going Forth", or 
"Discover Forth." 

• "SAVE TURNKEY" automatically 
compiles bootable turnkey 
application programs for royality free 
distribution. 

(Commodore 64and CBM are trademarks of Commodore) 

TO ORDER 

- Check, money order, bank card. 
COD'S add $1.65. 

- Add $4.00 postage and handling in 
USA & Canada. 

- Mass. orders add 5% sales tax. 

- Foreign orders add 20% shipping and 
handling. 

- Dealer and Club Inquiries welcome. 



PERFORMANCE 
MICRO 
PRODUCTS 

P.O. Box 370 
Canton, MA 02120 
(617) 828-1209 
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FOR TRS-M MODELS 1.3ft4 f 
IBM PC. XT, AND COMPAQ 

Train Your Computer 
to t>e an 

EXPERT! 

Expert systems facilitate the rsduo- 
lion of human expertise to simpla, 
Englisfi-style rule-sets, ttien use 
thnm to diagnose problems. "Know- 
ledge engineers" are developing 
many applications now 

EXPERT-2. Jack Park's outstandir>g 
introduction to expert systems, fw 
been modified by MMS tor MMS- 
FORTH V2 and up. We supply It 
with full and well-documented 
source code to permit addition of 
advanced features, a good manual 
and sample rule-sets: stock market 
analysis, a digital fault analyzer, and 
the Animal Game Plus the benefits 
of IMMSFORTH's excellent full- 
screen editor, super-fest compiling, 
compact and high-speed run-time 
code many buiit-in utilities and 
wide choice of other application 
programs 

I Rul» 1 - demo in EXPERT-2 ^ 
IF YOU WANT EXPERT-2 
ANDNOT YOU OWN MMSFORTH 
TriENHYP YOU NEED TO BUY 

MMSFORTH PLUS EXPERT-Z 
BECAUSE MMSFORTH tS REOUIREO 

EXPERT'i 




Fom 



Another exciting tool for our 
alternative software environment! 

• Personal License (raquirad): 

MMSFOnTHSyrimiDllkiaMPC fMH ■ 

MMSFORTH Syaton DM TRMB1,3«4 .. VSB» 

• Personal License (optional 
modules) 

FOF(rHCOMcaMniniGalisiisiiio4ut> .... fafeC 

UTIl.mES W« 

GAMES ia» 

EXPERT-2 eitwtsyMmi VMS 

DATAHANDLER IMS 

DATAHANDlffMUSdkxPConly) IMB 

FORTHWRITEwadpreoaaor VmX 



• Corporate Site Licerrae 
Extensions tamtiM 

Shipping/hinijlifV ( bx MM. 
AikyaunMtrtoHiwyiwthtiigililarMIIISFafflHsr 
requM our free bmcMn 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shoie Road, Nalleh, MA 017W 



write-;-' '.scj3#:);crlf 
end; 

•'e'rlF BP<BPLIM THEN BEGIN 

bp: =BP+1 ;WRITE<BP«.. •■ •■■":>: 
REFlD<BREftKi:BP3#>iCRLF END; 
'C': BEGIN --CLERR BP--' 
BP:=0;CRLF END; 
•'S'-': BEGIN FOR l:=l TO BP DO 

WRITE'C' •'..BREflKCn#>;CRLF END; 
•' E ' : BEG I N REHD C Pe« > ; CODE PS > END ; 
'U':IF Pe>0 THEN BEGIN 

P0 : =P0- 1 ; CODE >; P0 :> end ; 

•'N': BEG IN P0! =P0+1 ; CODE CPS > END; 
••Q--;p:=-l 

ELSE BEGIN WRITE'; ■ SVNTflX ERROR ' > ;CRLF END 
END -'CRSE OF CMD-- 
UNTIL P<0; 

CRLF ; WR I TE < K# . ' I NSTR . EXECUTED ' ') i CRLF 
END. xmiN/ 



*LF MEM1,P,2 


0800 < REMEMBER MEMl.P USES 0080 TO 061 fi> 


*G0 FORTH 




****FORTH Ul. 


02***** 


miN 




P-CODE START 


RDDRESS IN HEX? 0880 


JMP &> 1 


< REDUNDANT - CAN EL I MI NATE > 


>S 


•;ONE STEP THE PROGRAM) 


1 INT 0.31 




>S 




2 LIT 0,0 




>B 


<SET A BREAK POINT> 


1 :5 




>X 


>;D1SPLAS' STATUS > 


P=2 B=l T=31 


S<T>='5'1 S';T-1>=90 


>V 


<DISPLAV THE BREAKPOINT «'S> 


5 




>T 


■;do a trrcf UP to here> 


**TRFlCE** 




JMP 0. 1 




1 INT 0.. 31 




>R 


<RUN TILL THE BREAKPOINT) 


BREHK 5 OPR 


0.21 


>R 


<G0 AGRTH) 




•;G0T FIRST LETTER O.K.) 


BREftK 5 OPR 


0. 21 


>C 


CLEAR THE BREAKPOINT) 


>R 


';go for broke i ) 


BCDEFGHlJKLMNOPQRSTUUI.i;::VST .;WHOOPEE ! ! > 


555 INSTRUCTIONS FXFCI ITFD 


OK 






Figure Four 




Example use of interpreter 
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Recursion 



Michael Ham 
Santa Cruz, California 

A recursive definition uses in the defi- 
nition itself the idea being defined. For 
example, consider the definition of the 
mathematical operator ! (pronounced 
"factorial"); the definition is usually stat- 
ed by defining the general term n! ("n 
factorial"): 

n! = 1 if n = 1 

= n*(n-l)! ifn>l 

Although recursive definitions look 
circular, they are not, for the implied 
procedure does not lead to an infinite 
regression. Recursive definitions consist 
of two parts: in one part, the ^ctual result 
is given for a specific value; in the other 
part — the recursive part — the idea being 
defined is used, but for a term smaller 
than the original term. This diminution 
of terms ultimately leads to the specific 
value defined in the first part. 

In the example above, each applica- 
tion of the procedure gives a factorial 
number smaller (by one) than the number 
before; this ultimately leads to 1!, for 
which the definition provides the actual 
value. To see how the procedure works, 
use the definition to derive 4!: 

4! =4*3! from the definition 

= 4*3*2! applying the defini- 
tion to 3! 

= 4*3*2*1! applying the defini- 
tion to 2! 

□ 4*3*2*1 since 1!= 1 
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Recursive definitions are succinct and 
also imply an operational algorithm. 
Some computer languages (notably 
LISP) make extensive use of recursion. 
Forth can also use recursion, but first it 
must address the problem of a definition 
using itself. 

For an example, consider the problem 
of finding the greatest common divisor 
(gcd) of two positive integers — that is, 
the greatest integer that divides evenly 
into both of them, with no remainder. 



The gcd of 8 and 9 is 1 ; the gcd of 8 and 1 2 
is 4; and the gcd of 8 and 24 is 8. 

Euclid long ago discovered that the 
gcd of two numbers — call them a and 
b — is also the gcd of b and a mod b. This 
reduces the problem of finding the gcd of 
two numbers to one of finding the gcd of 
two smaller numbers. 

Moreover, the gcd of any positive 
integer and zero is the integer: for exam- 
ple, the largest integer that goes into 9 
and is 9, since every integer divides 
evenly into zero. 

We thus can offer a recursive defini- 
tion of the greatest common divisor of 
two nonnegative integers, a and b: 



GCD (a,b) = a 



ifb = 



GCD (b, a mod b) ifb>0 

This definition is easily translated into 
a Forth definition: 

:GCD( ab — gcd)?DUP IF DUP ROT ROT 
UMOD GCD THEN ; 

The ?DUP checks to see whether b is 
already zero; if it is, then we are done: the 
greatest common divisor is a, and it is left 
alone on the stack when the IF eats the 
(unduplicated) zero (namely b) and con- 
trol passes over the IF THEN clause. 

If b is not zero, it is necessary only to 
execute UMOD, since we then shall have a 
mod b left on the stack. But we need to 
keep b around for the next step, and 
UMOD will use up the only copy, so it is 
first necessary to DUP b. After the DUP 
the stack is out of order, but ROT ROT 
straightens it up so that everything is 
ready for UMOD — and after UMOD exe- 
cutes, the stack contains only the two 
numbers b and a mod b, with the latter 
on top of the stack. 

Note in passing that SWAP OVER more 
efficiently accomplishes the same things 
as DUP ROT ROT; for this reason SWAP 
OVER is used in the definition below. 
Some Forths achieve the same results 
with a single (though nonstandard) word 
TUCK. 

The definition tells us that the gcd of b 
and a mod b will also be the gcd of the 
original pair (a and b). Since the two 



numbers on the top of the stack are 
exactly the two numbers we need and 
they are, moreover, in the right order, we 
need only to execute GCD again. 

Here, unfortunately, a problem arises. 
If we try to enter the above definition, 
the Forth compiler will stop, confounded, 
with a message something like "? GCD." 
Since we are still in the middle of the 
definition, GCD is not found in the dic- 
tionary search. 

The compiler very properly doesn't 
use the current definition: since Forth 
allows words to be redefined, the com- 
piler should look for a previous defini- 
tion for any word used in the current 
definition. Some mechanism must be 
used to ignore the current name in a 
dictionary search. In fig-FORTH, a bit 
(the "smudge" bit) is set in the header of 
the word currently being defined; this bit 
tells -FIND to ignore this word. The bit is 
toggled by ; when the definition is com- 
plete, and the word then can be found on 
subsequent dictionary searches. 

But here we do want the current 
word's compilation address plugged into 
the definition sequence. Recall the struc- 
ture of a Forth definition, using GCD as 
an example and letting "ac" stand for 
"compilation address" (see figure one). 

Except for IF, which sets up a branch, 
the body of the definition consists of the 
compilation addresses of the words used. 
What we want to have in place at "x" is 
the compilation address of GCD itself, so 
that GCD will execute. Is there any way to 
get that address? 

Many Forths include the word LATEST, 
which puts on the stack the address of 
the name field of the most recent defini- 
tion. Some use the word LAST. LAST (or 
LATEST) can instead be a variable that 
contains the name field address of the 
most recent definition; in that case, you 
need the sequence LAST @ to get the name 
field address itself on the stack. 

The address of the name field must 
then be converted to the compilation 
address — for example, in fig-FORTH 
the sequence PFACFA will do the job: PFA 
converts the address of the name field to 
the address of the parameter field, and 
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CFA converts the address of the parame- 
ter field to the address of the code field, 
which in fig-FORTH is the compilation 
address. (There is no word to go directly 
from the name field address to the code 
field address.) Once the address of the 
code field is on the stack, one can use , to 
store it into the dictionary. The defini- 
tion we have arrived at is often named 
MYSELF, although the 83-Standard pro- 
vides the name RECURSE. In fig-FORTH, 
this definition, thus, is; 

: MYSELF LATEST 
PFA CFA , ; IMMEDIATE 

The sole remaining consideration is 
that MYSELF must be made immediate, as 
shown above. That is, we don't want 
MYSELF's compilation address to be 
stored in GCD; instead, we want MYSELF^ 
to execute during compilation of GCD so 
that MYSELF will pick up CCD's name 
field address, convert it to CCD's code 
field address, and put that address into 
the definition. And that is exactly what 
IMMEDIATE words do: they execute at 
once, even during compilation (when 
normal words are merely compiled for 
later execution). 

With MYSELF, we can rewrite the defi- 
nition of GCD: 

: GCD ( a b — gcd ) ?DUP IF SWAP OVER 
UMOO MYSELF THEN ; 

Charles Moore has suggested a differ- 
ent approach, using a word he named 
RECURSIVE, which enables the current 
word to be found. In fig-FORTH, for 
example, RECURSIVE would simply clear 
the smudge bit. The definition can then 
use its own name to store its compilation 
address in the definition, as: 



: GCD RECURSIVE ?DUP IF SWAP OVER 
UMOD GCD THEN ; 

Note that ; must now clear (rather than 
toggle) the smudge bit when the defini- 
tion is complete. If the bit was already 
cleared by RECURSIVE, clearing the cleared 
bit is simply a null operation, whereas a 
toggle would reset the bit and make the 
definition effectively vanish. 

Assignment for the Reader 

0. Figure out how to write a version of 
MYSELF in the Forth you use. (Check first 
to see if it already has MYSELF or RE- 
CURSE.) As indicated above, you want to 
obtain somehow the compilation address 
of the word being defined and during 
compilation store it into the dictionary at 
the appropriate spot. The compilation 
address is usually (though not always) 
the address of the code field. 

1 . Use your version of MYSELF to write a 
recursive Forth definition of FACTORIAL 
which will replace the top of the stack 
with its factorial value. 

2. Use a BEGIN UNTIL structure to write a 
nonrecursive definition of GCD: that is, 
explicitly test the value of the remainder 
at each step. (Recursive definitions are 
often not the most efficient approach in 
terms of machine resources.) 

3. Write a nonrecursive definition of 
FACTORIAL. 

4. Is RECURSIVE immediate? Explain why 
or why not. 

Copyright ® 1984 by Michael Ham. 
All rights reserved. 
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A Bibliography of Forth References 


MASTERING FORTH 


by Anderson and Tracy 


Second Edition, September 1984 


Thea Martin, editor 


A Step-by-step tutorial to the high 
level, stack oriented Forth computer 


The second edition of A Bibliography 


language. Formerly entitled FORTH 


has over 1300 references to Forth 


TOOLS, this unique guide introduces 


related papers, books, and articles, 


you to each of the commands required 


from the US and abroad. Indexed by 


by the Forth 83 International Standard 


suDjeci ancj auinor, m Diuiiuyrafjfiy 


— the preferred dialect of the Forth 


also classifies references into relative 


Interest Group. This book also 


levels — introductory, intermediate, 


includes utilities and extensions that 


or advanced. This year, complete 


can be written within the standard. 


publisher information has been 


Because forth is an interactive 


added, and the subject index has 


language, this book is ideal for use 


been expanded 


while sitting at the computer. Inside 


A Bibliography of Forth References 


you will find complete discussions on: 


was compiled as a service to the 


• stack manipulation 


Forth community by The Institute for 


• variables 


Applied Forth Research. Forth users 




around the world have contributed 


• loops 


references to work in many countries 


• strings 


and languages, from the early 


astronomy papers to the latest 


• compiling words 


Japanese Forth Computer project. 


• defining words. ..and more. 


William F. Ragsdale has called A 




Bibliography of Forth References "an 




invaluable aid", which "should be part 




of the library of any serious Forth 




user." 
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Forth Semaphores 




Jens Zander 
Linkoping, Sweden 

Using parallel or concurrent processes 
or tasks is very often a natural solution 
to a programmer's problem. Although 
convenient, these solutions may result in 
quite complex systems. Even if each task 
is of low complexity, the total number of 
possible states our systems can be in 
grows very fast with the number of tasks 
(in fact, exponentially). Very quickly we 
lose control of the system as a whole. In 
these cases it is of vital importance that 
we can isolate the tasks from each other 
to avoid unwanted interference. 

Multi-tasking systems are essentially 
of two kinds, t^k-controUed systems or 
"true" concurrent (time-shared) systems. 
In the task-controlled systems, task switch- 
ing is entirely up to the tasks themselves. 
Each task has to decide when it would be 
better to let some other task take control 
of the system. In a "true" concurrent sys- 
tem, however, task switching is per- 
formed by the system itself. From the 



user's point of view, this system is easy to 
use. Programs to be executed by these 
machines are written in the same way as 
for single-user systems. The only differ- 
ence is that each task will execute slower. 
The concurrent solution is, of course, the 
only possible one in a multi-user system. 
Forth lends itself very nicely to the 
implementation of both these schemes. 

Isolating the different tasks makes 
them easy to handle since they do not 
interfere. Nevertheless, after having gone 
through all the trouble of making the 
tasks act as independent entities, we will 
be forced to consider the problem of 
making them cooperate. Consider the 
following example: 

: ADD_COUNTER 
COUNTER @ 
1+ COUNTER! 



Several processes may simultaneously 
use this word to modify the common 
variable COUNTER. In a task-driven sys- 



SEMPHORE CCCC ( — ) 
CCCC : ( — addr) 



WAIT 



Creates the semaphore CCCC with initial content of one. CCCC 
will return the address of the semaphore. 



( — addr) 



Checks the contents of the semaphore at addr. If the contents of 
the semaphore is non-zero it is decremented by one. If the 
semaphore is zero, execution is suspended until the semaphore 
contents become non-zero. Non-sharable word. 



SIGNAL 



( addr — ) 



Increments the content of the semaphore at addr by one. Non- 
sharable word. 

Figure One 



tem this will cause no problems. Each 
task will increment COUNTER by one each 
time ADD.COUNTER is executed and will 
not follow any other task to interfere 
before finishing. In a "true" concurrent 
system, however, the different processes 
will not be aware of each other. Of 
course, most of these systems are not 
truly concurrent. What is important, 
however, is that every activity may be 
interrupted in favour of another at virtu- 
ally any instant. In our example two proc- 
esses may simultaneously read the con- 
tents of COUNTER. After adding one and 
simultaneously writing the result, we end 
up with an increment of one instead of 
two. Other examples where problems of 
this kind will arise are the sharing of 1/ O 
devices and data transfer between proc- 
esses. The bottom line in all of these 
situations is that the processes need to 
become aware of each other in these 
situations. We need some kind of mutual 
exclusion and synchronization 
mechanism. 

Semaphores 

Various methods of solving problems 
of this kind have been invented. In the 
late sixties, Dijkstra proposed an elegant 
solution by introducing the concept of 
semaphores ^''>'^. We will introduce a 
Forth version of the semaphores and the 
two primitives WAIT and SIGNAL used to 
manipulate them. WAIT and SIGNAL are 
modifications of Dijkstra's functions P 
and V. (Please see figure one.) 

A semaphore is an ordinary memory 
cell or variable, accessible to all involved 
processes. SEMAPHORE is used to create a 
variable of this kind. The semaphore will 
be initialized to contain a one. WAIT will 
take a semaphore address as an argu- 
ment and will check the contents of the 
semaphore cell. If the content is non- 
zero, WAIT will decrement it by one. If the 
content is found to be zero, execution 
will be suspended until the contents 
becomes non-zero again. SIGNAL will just 
increment the semaphore, regardless of 
its value. The critical feature of these 
words is that they are exclusive or non- 
sharable. This means that they in some 
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way cannot be interrupted by the system 
scheduler, and thus cannot be simul- 
taneously executed by two processes. 
Due to this, we may avoid the problem 
encountered in the add.COUNTER exam- 
ple above. With the primitives WAIT and 
SIGNAL we make whole sequences of 
words exclusive. Figure two is a modi- 
fied version of ADD.COUNTER including 
semaphores. This version will now work 
properly without unwanted interference 
between tasks. We note that the initial 
value of the semaphore (one is the default 
value) will determine the number of 
tasks that will be allowed to enter the 
exclusive section. Any additional tasks 
will be suspended by WAIT until some of 
the involved processes exit the section 
and execute the SIGNAL operation. Proc- 
esses WAlTing will form a semaphore 
queue. This way they will not steal time 
from active proc^ses. 

Besides the excluding function, sema- 
phores may be used for handshaking 
during data transfer between tasks. Hand- 
shaking is basically a matter of syn- 
chronization. Figure three is an example 
of this kind. Here, characters are passed 
between two processes using the words 
SENDER and RECEIVER. The initial value of 
the semaphore RX.READY will tell the 
transmitting process how many charac- 
ters he will accept before he has to start 
processing them with RECEIVE.CHARAC- 
TER. On the other hand, the semaphore 
TX.READY will reflect the number of char- 



acters transmitted but not yet received. 
In situations like this we have to watch 
out carefully for the ever present menace 
of deadlock. Deadlocks occur mainly 
when communicating tasks get out of 
phase. The reader may try to figure out 
what will happen if the communication 
link is initialized with both RX.READY and 
TX.READY equal to zero. 

Implementing Semaphores 

Since WAIT and SIGNAL are to be exclu- 
sive words, their implementation will 
heavily depend on how multi-tasking is 
achieved. In general we have to lower to 
the level where the task switching is per- 
formed, in order to be able to implement 
an excluding function. In hardware multi- 
tasking functions with multiple physical 
processors, this will call for some hard- 
ware solution. The most common multi- 
tasking implementations, however, are 
those implemented in some host machine 
using the native code of the machine. 
The multi-tasking Forth kernel will pro- 
vide the user with several virtual Forth 
machines. A machine code kernel and 
scheduler handles the task switching and 
will thus also be able to handle the sema- 
phores. The simplest way to achieve an 
exclusive function is probably to disable 
the timer interrupt controlling the task 
switching. This may, however, not be 
100% effective in all cases. In the follow- 
ing we will give an example of sema- 



SEMAPHORE TX.READY 
SEMAPHORE RX.READY 
TX.READY ! 
: SENDER 

BEGIN 

RX.READY WAIT 
SEND_CHARACTER 
TX.READY SIGNAL 
AGAIN 



RECEIVER 
BEGIN 

TX.READY WAIT 
RECEIVE_CHARACTER 
RX.READY SIGNAL 
AGAIN 

Figure Three 



SEMAPHORE COUNTER. SEM 

: ADD_COUNTER 

COUNTER. SEM WAIT 
COUNTER 1+ COUNTER 
COUNTER. SEM SIGNAL 

9 

Figure Two 



(Protected section) 
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Figure Four-a 
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Figure Four-b 



phore and kernel implementions as found 
in MFORTH used at the University of 
Linkoping^. The kernel flowcharts are 
found in figure four. A host machine 
timer interrupt is used to initiate process 
switching. The interrupt does not force a 
process switch, it will only set a flag. This 
flag will tell the Forth virtual machine 
that it may change processes whenever 
ready to do so. The flag is checked by the 
inner interpreter (NEXT). If the flag is set, 
the scheduler is activated to select a new 
task. This task is loaded, and execution 
will continue with this task during the 
next time slice.* Task switching occurs 
only between high-level Forth words. 
This means that code words (the "ma- 
chine" instructions of the Forth-machine 
**) are never interrupted. If we want to 
implement an exclusive instruction (e.g. 
WAIT) we simply use a code definition. In 
order to save time, WAIT will force a task 
switch each time a zero semaphore is 
encountered. This is a simple way to 
implement a semaphore queue. The proc- 
esses WAlTing are not really suspended, 
they will check the semaphore each time 
they are activated by the scheduler, and 
then "go to sleep" by issuing a SWITCH if 
the semaphore is still zero. 

High-Level Semaphores 



WAIT: 
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N 


Sem<-Sem-1 







Figure Four-c 



There may be situations when we 
would like to implement semaphores 
without lowering to the task switch level. 
An example of this is a hardware multi- 
processor system with no support hard- 
ware for semaphores. A typical case is 
processors transparently sharing mem- 
ory. To solve this problem we may use a 
neat trick from carrier sense random 



* At this point a Forth process switch is 
done very fast. Only the internal registers of 
the Forth machine (IP, RP, SP and UP) have to 
be saved and restored. The scheduling over- 
head is, therefore, quite low in a system like 
this. When loaded with five tasks of different 
priorities, a typical MFORTH system (1 
MHz 6809, 20 ms time slices) will spend only 
1.5% of the total time scheduling. The sche- 
duler consists of less than 100 bytes of code. 

** In fact, using the flag is nothing other 
than implementing a Forth machine inter- 
rupt. As in ordinary microprocessors, the current 
machine instruction is finished before the 
interrupt is acknowledged. 
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access communications as found in LANs 
(Ethernet) and packet radio systems. 

To implement a mutual exclusion de- 
vice, we will, instead of using one sema- 
phore cell, use a boolean vector with one 
cell for each of the processes involved. 
When a process has been granted exclu- 
sive execution, its vector cell will contain 
a true value. A process needing exclusive 
execution will first sense, or scan the vec- 
tor, for any true values. If a true value is 
found in the vector, the process has to 
wait until the vector is all false. If the 
vector is found all false the processor will 
raise its own flag, i.e. make it true. This 
is, however, not sufficient to exclude all 
other processes. Figure five explains 
why. During the time interval between 
sensing the vector to be empty or false 
and setting the flag, some other task may 
have started its exclusion sequence. To 
make the exclusion safe, we have to 
check the vector again after some time 
interval tj. Figure five shows the worst 
case. We can see that tj has to be at least 
as large as the longest sense-to-set inter- 
val in all processes. After this delay, we 
sense again. If a collision occurs, i.e. two 
tasks are simultaneously requesting exclu- 
sive rights, we choose one of them by 
some arbitrary non-ambiguous rule. In 
the Forth implementation shown in fig- 
ure six we will choose the one with the 
lowest index TASK-ID. The word SENSE 
will leave either the index of the lowest 
true flag in the STATE-VECTOR or a zero if 
no true flag is found. PROTECT and UNPRO- 
TECT form the framework of an exclusive 
program section. Note the use of SWITCH 



which is used to force a process switch 
(cf. PAUSE in ref. 1) to save time. PROTECT 
and UNPROTECT are used to implement 
WAIT and SIGNAL. We may, however, use 
them directly to produce some exclusive 
section. One should note that, in this 
case, no other exclusive program section 
may be executed in the system. 

The high-level semaphores offer a very 
useful system-dependent task synchron- 
ization mechanism. Their major draw- 
back is an elaborate procedure with 
quite slow execution, especially if many 
tasks are involved. 

References 

1 . Laxen, H., "Multi-Tasking, Part 1 ," Forth 
Dimensions V/4. 

2. Brinch-Hansen, P., Operating System Prin- 
ciples, Prentice-Hall, 1973. 

3. Zander, J., "Multi-Tasking FORTH Imple- 
mentation for the 6809, Users Manual," 
Internal Report LiTH-ISY-I-0577, Dec. 
1982. 

4. Tsichritzis, D.C., Bernstein, P. A., Operat- 
ing Systems, Academic Press, New York, 
1974. 

5. Dijkstra, E.W., "Cooperating Sequential 
Processes" in Programming Languages 
(F. Genuys ed.) Academic Press, New 
York, 1968. 



SENSE start 



Set flag 



SENSE start 



TASK A 



SENSE start Set flag 



^►t 



TASK B 

Figure Five 



Forth Dimensions 



26 



Volume VI, No. 4 



Free Power! 



00 


{ High Level Semaphores JZ 22Feb84 Forth 


-79 


) 


01 








02 


10 CONSTANT iiTASKS 56 USER TASK-ID 






03 








04 


CREATE (SV) #TASKS ALLOT 






05 








06 


: STATE-VECTOR 1- (SV) + ; 






07 








08 


: CLEAR STATES #TASKS 1+ 1 DO 






09 


I STATE-VECTOR C! LOOP 


> 




10 


: SENSE ( — n ) 






11 


#TA$KS 1+ 1 DO 






12 


I STATE-VECTOR 


C@ 




13 


IF DROP I LEAVE 


THEN 


14 


LOOP ; 






15 








00 


( High Level Semaphores JZ 22Feb84 Fo th 


-79 


) 


01 






02 


: SET-STATE 1 TASK- ID e STATE- VECTOR C ; 






03 


: CLEAR-STATE TASK-ID @ STATE-VECTOR C! 


> 




04 








05 


( System dependent Delay word } 






06 


: DELAY 40 DO LOOP ; 






* 07 








08 


: PROTECT BEGIN SENSE NOT 






09 


IF SET-STATE DELAY SENSE 






10 


TASK-ID @ = IF EXIT THEN 






11 


THEN 






12 


CLEAR-STATE SWITCH 






13 


AGAIN ; 






14 


• UNPROTECT CLEAR-STATE : 






15 








00 


( High Level Semaphores JZ 22Feb84 Forth 


-79 


) 


01 






02 
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input/output, binary trees, artificial in- 
telligence, decompiler, breakpoint 
routine, keyword index, a little game, 
mailing list with invoice writing and a 
complete business package combining: 
invoice writing, mailing list and inven- 
tory control, professional programs for 
the advanced FOflTH programmer, 
Order-No. 61 (Book) S 12.95 

POVKER FORTH for APPLE Me, ATARI 

SOOXL, Cammodore-64 

Extended Fig-FORTH incl. editor and 

many useful utilities. Very powerful. 

FigFORTH for Apple II c 

Ordar-No. 61S6 S 19.95 



FigFORTH for Commodor«-64 
Ordar-No. 4960 
FigFORTH for ATARt SOOXL 
Ordw-No. 70» 



Learn-FORTH - i 



subset for the be- 



S39M) 



Laarn-FORTH f.Atari 600/800XL (Disk 
or cassette) 

OrderNo. 7053 1 19.95 

Learn-FORTH for APPLE lie 
Order No. 6153 S9.95 
FORTH on the ATARI - Learning 
by unng 

FORTH application examples for the 
novice and expert programmer. 1 18 pages 
This book discusses the use of FORTH 
for generating sound, ptotting graphics, 
and handling text and itrlr>gs. Included 
are sample programs illustiating Input aruf 
output, math, use of the game port 
and a sample mailing list, 
Order-No. 170 (Book) t7.95 

FORTH Introduction on your APPLE lie 
(The Apple in your Hand) 
A complete introduction to FORTH on 
your APPLE. Includes many FORTH 
application programs and machine 
language course. 

Ordar-No. 178 (Book) S 12.95 



Dealer and Distributor inquiriei are 

ELCOMP PUBLISHING. INC. 
2174 Wast FoothHI Bhd., Unit E 
Upland, C A 91788 

Phone: (7141 62M314,Tlx.: 29 81 91 



PAYMENT: Chedt, VISA, MC 
CA reiklenU add 6 % sales tax. 
Add 1 2.00 tor shipping. 
Outside USA: add 15% for shipping 
In Singapore contact: te4ax 22 4S6 
- - td: tatn 62 69 73 



Forth-83 Program 
to Run Forth-79 Code 



Robert Berkey 
Palo Alto, California 

As the Forth-83 Standard becomes 
more widely adopted, there is an increas- 
ing need to translate Forth-79 programs 
into Forth-83. This article contains a 
translator program that allows a Forth- 
79 program to run on a Forth-83 system; 
additionally, words that are difficult to 
translate automatically are discussed. 
The article focuses on the required word 
set of the Forth-79 Standard and pro- 
gram requirements of the Forth-83 
Standard. 

In most respects a Forth-83 system is a 
superset of a Forth-79 system. It is there- 
fore possible to run a Forth-79 program 
on a Forth-83 system by placing a trans- 
lator between the program and the sys- 
tem. For most Forth-79 words the trans- 
lation is trivial. 

Such a translator offers several bene- 
fits, the main one being the ability to run 
Forth-79 programs in a Forth-83 envi- 
ronment. Although this is practical, there 
is a speed penalty for compute-bound 
programs. Most primitive words imple- 
mented in the translator run at about 
one-third the speed of their code equi- 
valents. The majority of Forth-79 words 
are unchanged in Forth-83 and run at 
full speed, so the overall speed penalty is 
roughly 50%. For many applications this 
is acceptable. In addition to the speed 
penalty, a program with the translator 
will, of course, require more memory 
than the program alone. 

The translator is also useful as a pro- 
grammer's tool for changing a Forth-79 
program into a Forth-83 program. The 
entire translator, including the loops and 
math, can be loaded onto a Forth-83 
system and the program to be converted 
loaded on top of that. Piece-by-piece the 
program can be upgraded and the cor- 
responding part of the translator 
removed. 

Simple Translations 

The first group of words, shown in 
figure one, are the simplest in translation. 



Division 

If the application's divisions result in 
negative quotients and the remainders 
are not zero, the floored division in 
Forth-83 must be converted to the 
rounded-to-zero division used in Forth- 
79. See figure two. 



Forth-79 Editing Words 

In the unlikely event that the 79- 
Standard program uses SCR and / or LIST 



and these are not available in the system, 
the code in figure three will suffice. 

Do-Loops 

Certain uses relating to do-loops do 
not translate directly between Forth-79 
and Forth-83. These include: 

• Unusual do-loop parameters, especially 
for the nl nl DO ... LOOP case when 
used in Forth-79 to execute the loop 
once. 

• LEAVE 



FORTH-83 DECIMAL FORTH DEFINITIONS 

: FORTH-83 ( — ) 1 ABORT" Not Forth-83" ; ( replaceable, see below ) 

: FORTH ( — ) FORTH ; IMMEDIATE ( " , see below ) 

: 79-STANDARD ( — ) ."Not fully Forth-79" ; ( " , see below ) 

: 0< ( n — flag ) 0< NEGATE ; 

! 0- ( w — flag ) 0- NEGATE ; 

: 0> ( n — flag ) 0> NEGATE ; 

: < ( nl n2 — flag ) < NEGATE ; 

: = ( wl w2 — flag ) - NEGATE ; 

: > ( nl n2 — flag ) > NEGATE ; 

! D< ( dl d2 — flag ) D< NEGATE ; 

: U< ( ul u2 — flag ) U< NEGATE ; 

: NOT ( 16bl ~ 16b2 ) 0- ; 

: PICK ( n — 16b ) 1- PICK ; 

: ROLL ( n ~ 16b ) 1- ROLL ; 

: ." ( <ccc> — ) STATE @ IF [COMPILE] ." 

ELSE 34 WORD COUNT TYPE THEN ; IMMEDIATE 
: ? ( addr — ) @ . ; 

: MOVE ( addrl addr2 n ~ ) MAX DUP + >R OVER OVER - 1+ 
R> SWAP IF CMOVE 

ELSE ?DUP IF DO OVER I + @ OVER I + 1 2 +LOOP 

THEN DROP DROP 
THBM ; 

: CMOVE ( addrl addr2 n ~ ) MAX CMOVE ; 

( Note: Redefine after defining MOVE ) 
: CONSTANT ( — 16b ) ( creating: 16b — ) CREATE , 

DOES> @ ; ( This allows a CONSTANT to be ticked ) 
: EXPECT ( addr n ~ ) MAX OVER SWAP EXPECT 

SPAN @ + SWAP Cl ; 
: FILL ( addr n 8b — ) SWAP MAX SWAP FILL ; 
: FIND ( — addr ) 32 WORD FIND 0- IF DROP THEN ; 
: ' ( — addr ) ' >BODY 

STATE @ IF [COMPILE] LITERAL THEN ; IMMEDIATE 
: KEY ( ~ c ) KEY 127 AND ; 
: LITERAL ( — 16b ) ( compiling: 16b — ) 

STATE @ IF [COMPILE] LITERAL THEN ; IMMEDIATE 
: QtJERY ( — ) TIB 80 EXPECT SPAN @ #TIB I ; 

( Note: Define after redefining EXPECT ) 
: SPACES ( n — ) MAX SPACES ; 
: TYPE ( addr n — ) MAX TYPE ; 

U* ( ul u2 — udl ) UM* ; 
: U/MOD ( ud ul — u2 u3 ) DM/MOD ; 

Figure One 
Simple Translations 
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Problems with do-loop parameters 
are not frequent and the changes involved 
with LEAVE are more cleanly and simply 
done by rewriting the code into Forth- 
83. Still, a reasonably efficient Forth-79 
loop and leave can be written in Forth- 
83. LOOP executes six extra primitives 
per iteration, so an empty loop will run 
seven times slower. An application loop 
with six primitive words in the loop body 
will run at half speed. See figure four. 

Forth-83 Standard Programs 

Vocabulary considerations prevent this 
translator from being labeled a Forth-83 
Standard Program. A Forth-83 Stand- 
ard Program cannot redefine standard 
words in the vocabulary FORTH, but the 
basic form of this translator extensively 
redefines the standard words. The trans- 
lator is otherwise standard, meeting both 
the portability and documentation re- 
quirements of the standard. See Appen- 
dix A for the Forth-83 program docu- 
mentation. The vocabulary option in 



Appendix B avoids the redefinition prob- 
lem at the expense of portability. 

Automatic Translation Limitations 

The translator has given the code that 
translates directly from Forth-83 to 
Forth-79, but not all of the Forth-79 sys- 
tem requirements can be satisfied. For 
the remaining translation problems there 
may be no easy fixes. Words and usages 
difficult to translate automatically are: 

CURRENT This will be available if the 
Forth-83 system has the System Exten- 
sion Word Set. 

CONTEXT Even if the Forth-83 system 
has the System Extension Word Set, 
this might require some tinkering. This 
is a result of increased variety of 
vocabulary mechanisms in today's 
systems. 

FORGET This now uses the compilation 
vocabulary, not the dictionary search 
order. 

EMPTY-BUFFERS The phrase SAVE-BUF- 
FERS EMPTY-BUFFERS can be replaced 



with FLUSH, but EMPTY-BUFFERS is no 

longer supported by the standard. Like 
SCR and LIST, EMPTY-BUFFERS tends to 
be around in a system and also tends 
not to be used by a program — it is 
really for programmers hacking at the 
keyboard. 

COMPILE An uncommon usage, of the 
form COMPILE [ , ] will not translate 
directly; alternate programming tech- 
niques or system-dependent surrogates 
may be needed for this case. 

WORD The delimiter stored at the end 
of the text is now always a space. A 
79-Standard program that uses a deli- 
miter other than a space will require 
special handling to get running. 

Multi-programming impact This was 
not fully specified in Forth-79. If a 
program does something such as typ- 
ing out of a block buffer, it will have to 
be modified to be portable; on a single- 
task system this nonstandard practice 
should continue to work without 
problems. 

For additional information on modi- 
fying a Forth-79 program to run on a 
Forth-83 system see the preceding issue 
of Forth Dimensions, "Upgrading 
Forth-79 Programs To Forth-83". 

Appendix A: 

Forth-83 Program Documentation 
Requirements 

In most respects this translator pro- 
gram qualifies for being labeled a Forth- 
83 Standard program. However, it is 
non-standard because standard words 
are redefined in the FORTH vocabulary 
and the redefinitions do not comply with 
the Forth-83 Standard. It does meet the 
portability requirements of the standard 
and should work on any Forth-83 Stand- 
ard System. Additionally, with the fol- 
lowing documentation, the program sat- 
isfies the documentation requirements 
for a Forth-83 Standard Program. For 
additional information on documenta- 
tion requirements see the Forth-83 Stand- 
ard, p. 13. 

• Dictionary space used: minimum re- 
quired, 88 bytes; typical indirect 
threaded system, 1440 bytes. 

• Largest use of data stack for any one 
word: minimum required, 10 bytes. 



: ROUND-TO-ZERO ( mod quol — quo2 ) 

SWAP IF DUP 0< IF 1+ TIffiN THEN ; 
: MODQUOREMQUO ( mod quol divisor — rem quo2 ) >R DUP 0< 

IF OVER IF 1+ SWAP R@ - SWAP THEN THEN R> MlOP ; 
( The above words are not In Forth-79 but are used to develop the ) 
( standard words. ) 

: */ ( nl n2 n3 — n4 ) */MOD ROUND-TO-ZERO ; 

( Caution: Redefine */ before redefining */MOD ) 
: */MOD ( nl n2 n3 — n4 n5 ) DUP >R */MOD 

R> MODQUO>REMQUO ; 
: / ( nl n2 — n3 ) /MOD ROUND-TO-ZERO ; 

( Caution: Redefine / before redefining /MOD ) 
: MOD ( nl n2 — n3 ) DUP >R /MOD 0< IF 

DUP IF R@ - THEN THEN R> DROP ; 

( Caution: Redefine MOD before redefining /MOD ) 
: /MOD ( nl n2 — n3 n4 ) DUP >R /MOD 

R> MODQUO>REMQUO ; 

Figure Two 
Division 



CREATE TYPE-BUFFER 64 ALLOT 

( The above word Is not In Forth-79 but Is used to develop the ) 
( standard words. ) 
VARIABLE SCR 

: LIST ( screen* — ) 16 DO CR DUP BLOCK I 64 * + 

TYPE-BUFFER 64 CMOVE TYPE-BUFFER 64 TYPE SPACE I . LOOP 
SCR I ; 

Figure Three 
Forth-79 Editing Words 
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MVP-FORTN 

stable - Transportable - Public Domain - Tools 
You need two prinnary features in a software development package a 
stable operating system and ttie ability to move programs easily and 
quickly to a variety of computers. MVP-FORTH gives you botti these 
features and many extras. This public domain product includes an editor, 
FORTH assembler, tools, utilities and the vocabulary for the best selling 
book "Starting FORTH". The Programmer's Kit provides a complete 
FORTH for a number of computers. Other MVP-FORTH products wiH 
simplify the development of your applications. 
MVP Books - A Series 

Volume 1, All about FORTH by Haydon. MVP-FORTH 
glossary with cross references to fig-FORTH, Starting FORTH 
and FORTH-79 Standard. 2"" Ed. $25 
n Volume 2, MVP-FORTH Assembly Source Code. Includes 

CP/M« , IBM-PC® , and APPLE® listing for kernel $20 
n Volume 3, Floating Point Glossary by Springer $10 

□ Volume 4, Expert System with source code by Park $25 
TZ Volume 5, File Management System with interrupt security by 

Moreton $25 

MVP-FORTH Software - A Transportable FORTH 

□ MVP-FORTH Programmer's Kit including disk, documentation 
Volumes 1 & 2 of MVP-FORTH Series (Alt About FORTH, 2"0 
Ed. & Assembly Source Code), and Starting FORTH. Specify 
.□ C^=/M, □ CP/M 86, □ CP/M-F, Q APPLE, 

^ a IBM PC/XT/AT, □ MS-DOS, □ Osborne, □ Kaypro, 

□ H89/Z89, □ Z100, □ TI-PC, □ MioroDecisions, 

□ Northstar, □ Compupro, □ Cromenco, □ DEC Rainbow, 

□ NFC 8201 , □ TRS-80/1 00, □ HP 1 1 0, □ HP 1 50, 

□ STM PC $1 50 

□ MVP-FORTH Enhancement Package for IBM-PC/XT/AT 
^ Programmer's Kit. Includes full screen editor, MS-DOS 

^Ji^ file interface, disk, display and assembler operators. $110 

□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. 
Generates headerless code for ROM or target CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. 
Use for applicatons on CP/M based computer. Includes 
public domain source $160 

□ MVP-FORTH Fast Floating Point Includes 951 1 math chip 
on board with disks, documentation and enhanced virtual 
MVP- FORTH for Apple II, II -I- , and He. $450 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE 
Programmer's Kit. Extremely useful tool for decompiling, 
callfinding, and translating. $200 

□ MVP-FORTH PADS (Professional Application Development 
System) for IBM PC/XT/AT or PCjr or Apple ii, li-t- or lie. An 
integrated system for customizing your FORTH programs and 
applications. The editor includes a bi-directional string search 
and is a word processor specially designed for fast 
development. PADS has almost triple the compile speed of 
most FORTH's and provides fast debugging techniques. 
Minimum size target systems are easy with or without heads. 
Virtual overlays can be compiled in object code. PADS is a 
true professional development system. Specify 

Computer. $500 

□ MVP-FORTH Floating Point & Matrix Math for IBM PC/XT/AT 
with 8087 or Apple with Applesoft on Programmer's 

Kit or PADS. $85 

□ MVP-FORTH Graphics Extension for IBM PC/XT/AT 

or Apple on Programmer s Kit or PADS. $65 

□ MVP-FORTH MS-DOS file interface for IBM PC PADS $80 

□ MVP-FORTH Expert System for development of knowledge- 
based programs for Apple, IBM, or CP/M. $100 

FORTH CROSS COMPILERS Allow extending, modifying and compiling 
for speed and memory savings, can also produce ROMable code 
Specify CP/M, 8086, 68000, IBM, Z80, or Apple II, II + $300 

Ontoring Inlormatton: Check, Money Order (payable to MOUNTAIN VIEW PRESS. 
INC.). VISA, MasterCard, American Express. COD'S $5 extra Minimum order $15 
No b4lling or unpaid f^'s. California residents add sales tax. Shipping costs in US 
included in price. Foreign orders, pay in US funds on US bank, include for handling 
and shipping by Air: $5 for each item under $25, $1 for each item between $25 and 
$99 and $20 for each item over $1 00. All prices and products subject to change or 
withdrawal without notice. Single system and/or single user license agreement 
required on some products. 



$50 



FORTH DISKS 

FORTH with editor, assembler, and manual. 

n APPLE by MM, 83 $100 □ ZOO by LM, 83 $100 

□ ATARI® valFORTH $60 □ 8086/88 by LM, 83 $100 

□ CP/M by MM, 83 $100 □ 68000 by LM, 83 $250 

□ HP-85 by Lange $90 □ VIC FORTH by HES, 

□ HP-75 by Cassady $150 VIC20 cartridge 

□ IBM^>C byLM,83 $100 □ 064 by HES Commodore 

64 cartndge $40 

□ N0VAbyCCI8" $175 ^ ^imex by HW $25 

Enhanced FORTH with: F-Floating Point, G-Graphics, T-Tutorial, 
S-Stand Alone, M-Math Chip Support, MT-Multi-Tasking, X-Other 
Extras, 79-FORTH-79, 83-FORTH-83. 

□ APPIpE by MM, □ Victor 9000 by DE.G.X $150 
F, G, & 83 $1 80 □ Extensions for LM Specify 

□ ATARI by PNS, FG, & X. $90 IBM, Z80, or 8086 

□ CP/M by MM, F & 83 $1 40 ^ Software Floating 

□ Multi-Tasking FORTH ' ^ , 
tiv SL CP/M X & 79 $395 ° Support 

by SL, OP/M, X & /a $395 (IBM-PC or 8086) $100 

□ TRS-80/1 or III by MMS □ 951 , Support 

><■ & 79 S'' 30 (Z80 or 8086) $1 00 

□ TImex by FD, tape G,X, □ Color Graphics 

&79 $45 (IBM-PC) $100 

□ C64 by ParSec. MVP, F. □ Data Base 

79 , G & X $96 Management $200 

□ fig-FORTH Programming Aids for decompiling, callfinding, 
debugging and translating. CP/M, IBM-PC, Z80 

or AoDle. $200 

FORTH MANUALS. GUIDES & DOCUMENTS 

□ Thinking FORTH by Leo 

Brodie, author of best selling 
"StartinaJORTH" $16 

□ ALL ABOUT FORTH by 
Haydon. See above. $25 

□ FORTH Encyclopedia by 
Derick & Baker $25 

□ The Complete FORTH by 
Winfield $16 



□ Understanding FORTH by 

Reymann $3 

□ FORTH Fundamentals, 

Vol. I by McCabe $16 



□ 


1980 FORML Proc. 


$25 


□ 


1981 FORML Proc 2 Vol 


$40 


□ 


1982 FORML Proc. 


$25 


□ 


1981 Rochester FORTH 






Proc. 


$25 


□ 


1982 Rochester FORTH 






Proc. 


$25 


□ 


1983 Rochester FORTH 






Proc. 


$25 


□ 


A Bibliography of FORTH 




References, 1st Ed. 


$15 



The Journal of FORTH 
Application & Research 



_ Vol. 1,No. 1 $15 

□ FORTH Fundamentals, n Uni 1 9 ti 
Vol.llbyMcCabe $13 ° .^^^'^J^ * 

n rr^^-rJ-r I w . ^ □ METAFORTH by 

□ FORTH Tools Vol.1 by ^ ^ 

Anderson & Tracy $20 

□ Threaded Interpretive 
Languages $23 



□ Beginning FORTH by 

Chirlian $17 

□ FORTH Encyclopedia □ Systems Guide to fig- 
Pocket Guide $7 FORTH by Ting $25 

□ And So FORTH by Huang. A □ FORTH Notebook by 
college level text. $25 jing $25 

□ FORTH Programming by □ Invitation to FORTH $20 
Scanlon $17 □ pDP-11 User Man. $20 

□ FORTH on the ATARI by E^ □ foRTH-83 Standard $1 5 
Floegel □ FORTH-79 Standard $15 

U Startmg FORTH by Brodie _„ . . 

Best instructional r^anual □ FORTH-79 Standard 
available, (soft cover) $19 Conversion $10 

□ Starting FORTH (hard B Tiny Pascal fig-FORTH $1 
cover) $23 □ NOVA fig-FORTH by CCI 

□ 68000 fig-Forth with Source Listing $25 
assembler $25 □ NOVA by CCI User's 

Manual $25 

□ Installation Manual for fig-FORTH, $1 5 

Source Listings .of fig-FORTH, for specific CPU's and computers. 
The Installation Manual is required for implementation. Each $1 5 

□ 1 802 □ 6502 □ 6800 □ AlphaMicro □ IBt^ 
1.] 8080 □ 8086/88 □ 9900 □ APPLE II 

□ PACE 6809 □ NOVA □ PDP-1 1/LSI-1 1 

□ 68000 □ Eclipse □ VAX □ Z80 



MOUNTAIN VIEW PRESS, INC. 

PO BOX 4656 MOUNTAIN VIEW, CA 94040 (415) 961-4103 
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( First a leave-flag stack is created. ) 
CREATE LEAVE-FLAGS HERE 22 + , 20 ALLOT 
( Allows room for tea nested loops. ) 

( The item second from top on the leave stack will be true ) 

( if a negative going +LOOP should terminate. The item ) 

( on the top of the leave stack is true if a positive going ) 

( +L0OP or a LOOP should terminate. ) 
CONSTANT FALSE -1 CONSTANT TRUE 
: DON'T-LEAVE ( — ) -1 LEAVE- FLAGS +! 

FALSE LEAVE-FLAGS @ Cl ; 
: DO-LEAVE ( — ) -1 LEAVE-FLAGS +1 

TRUE LEAVE-FLAGS S C! ; 
: +LEAVE? ( ~ ? ) LEAVE-FLAGS @ CS ; 
: -LEAVE? ( — ? ) LEAVE-FLAGS 8 1+ C@ ; 
: -l-LEAVE? ( n — n ? ) 

DUP 0< IF -LEAVE? ELSE +LEAVE? THEN ; 
: BEGIN-LOOP ( nl n2 — nl n2 ) ( Set up initial leave ) 

( flags for this loop ) OVER OVER > 

IF DO-LEAVE DON'T-LEAVE ELSE DON'T-LEAVE DO-LEAVE 
THEN ; 

: END-LOOP ( — ) 2 LEAVE-FLAGS +! ; 

( The above words are not in Forth-79 but are used to develop ) 
( the standard words. ) 
: DO COMPILE BEGIN-LOOP 

[COMPILE] DO ; IMMEDIATE 
: LOOP COMPILE +LEAVE? 
[COMPILE] IF 

[COMPILE] LEAVE ( a Forth-83 LEAVE ) 
[COMPILE] THEN 
[COMPILE] LOOP 

COMPILE ENI>-LOOP ; IMMEDIATE 
: +LOOP COMPILE -l-LEAVE? 
[COMPILE] IF 
COMPILE DROP 

[COMPILE] LEAVE ( a Forth-83 LEAVE ) 
[COMPILE] THEN 
[COMPILE] +LOOP 

COMPILE END-LOOP ; IMMEDIATE 
: LEAVE ( — ) 2 LEAVE- FLAGS +! DO-LEAVE DO-LEAVE ; 

( Caution: Redefine LEAVE after redefining LOOP and +LOOP ) 



• Largest use of return staclc for any one 
word: minimum required, 2 bytes; typ- 
ical indirect tlireaded system, 8 bytes. 

• Mass storage bloclcs: seven screens of 
Forth source — no specific block ranges 
required. 

• Operator's terminal facilities: no spe- 
cial requirements. 



Appendix B 

Preserving the Forth-83 System Words 

It may be preferred to keep the Forth- 
83 definitions available. This can conve- 
niently be done if the Forth-83 system 
being used can have more than two 
vocabularies in the search order. (Most 
can and in fact do.) The code in figure 
five would replace the definitions in fig- 
ure one for FORTH-83, FORTH, and 79- 
STANDARD, and puts subsequent defini- 
tions in a vocabulary called FORTH-79. 
These definitions will not work as in- 
tended on some standard systems and 
therefore do not meet the portability 
requirements of the standard. 



Figure Four 
Do-Loops 



VOCABULARY FORTH-79 

: 79-STANDARD ( — ) FORTH-83 FORTH-79 DEFINITIONS 

." Not fully Forth-79" ; 
79-STANDARD DECIMAL 

: FORTH-83 ( — ) FORTH FORTH-83 ; 

( preserve access to the 83 definitions ) 
: FORTH ( — ) FORTH-79 ; IMMEDIATE 



Figure Five 
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Introducing 3 New 
68000 FORTH Systems 



r 



TM TM 

Multi-FORTH Under CP/I\/I -68K 

•Available Now 

•32-bit Multitasking FORTH System 
• Snapshot features allow creation 
of executable CP/M programs 
(in under 5 seconds from memory) 
•Full access to CP/M files and facilities 
•Inline Macro Assembler 
•Line, Screen Editors, other utilities 

•Introductory price S695.00 

(Regularly $895.00) 




MacFORTH 




•Stand Alone Programming on Macintosh 
•User defined MENUS 
•User defined WINDOWS 
•Compatible with Macintosh User Interface 
•Mac File Compatability 
•interactive COMPILER & INTERPRETER 
•User Access to TOOLBOX 
•32-bit FORTH System 
• Large Installed Base with Local User Groups 
•Available Now S149.00 



Multi-FORTH^Under UNIX™ 



The Speed and Flexibility of FORTH ^„ 
with the Structure and Utilities of UNIX 

•Comprehensive 32-bit FORTH Environment Under UNIX 
•Full access to UNIX File Features and Shell from FORTH 

(Is, grep, rm, cat, etc.) 
•Multi-FORTH Core Resident Real time Multitasker 

• Inline Macro Assembler 

•Ability to snapshot memory image as a loadable application 
•Available in July on the Perkin Elmer 7300 

(soon on other UNIPLUS Hosts) 
•Color Graphics on the Perkin Elmer version 

• Introductory price S1295.00 



68000 FORTH Systems also available on HP Series 200 and Motorola VME10 



For more information contact 




CREATIVE SOLUTIONS 

4701 Randolph Rd. Ste.12 Rockville, Maryland 20852 
(301)984-0262 



UNIX is a registered trademark of AT&T • CP/IVI is a registered trademarl< of Digital Research 
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ANDIF and ANDWHILE 



Wendall C. Gates, PE 
Santa Cruz, California 

Anyone who works in real-time, con- 
trol-oriented programming frequently en- 
counters the need to implement deci- 
sions based on several input conditions. 
Forth implements single-condition 
branching as IF ELSE THEN and BEGIN 
WHILE REPEAT Statements, but multiple- 
condition branching is absent in most 
Forth implementations. 

One extremely simple approach, which 
solves both the multiple IF and multiple 
WHILE applications, is presented on 
screens 78 and 79 (fig-FORTH). ANDIF is 
used in the form: 

...IF...ANDIF...ANDIF...ANDIF...ELSE...THEN 

where ELSE is optional and the number 
of ANDlFs is not constrained. The com- 
pile-time action of ANDIF is to compile 



first DUP and OBRANCH. Then the second 
entry on the computation stack (the 
address of the word following the 
OBRANCH compiled by IF) is copied over 
the first entry (the compiler security 
digit) and is decremented by two, becom- 
ing the address of the first OBRANCH. This 
address is then compiled. The final action 
is to compile DROP. In other words, each 
ANDIF compiles a OBRANCH which points 
back to the OBRANCH compiled by IF; 
thus, only one forward branch needs to 
be compiled, and it is handled by ELSE or 
THEN as usual. 

At run time, the flag being tested is 
duplicated. If the duplicate copy of the 
flag is true, the original flag is dropped 
and execution continues inline. If the 
flag is false (zero), ANDIF's OBRANCH 
branches back to IF's OBRANCH; the origi- 
nal flag then directs IF's OBRANCH to skip 
forward to ELSE or THEN. 



ANDWHILE is similarly constructed 
(screen 79); in fact, the only difference is 
the compiler security digit. Usage is iden- 
tical to ANDIF; no matching closeout 
words (ENDWHILE in Ref. 1) are needed to 
resolve the branching. 

ANDIF and ANDWHILE also permit build- 
ing complex control structures in a sim- 
ple, straightforward fashion. Here, for 
example, is a multi-condition, multi-step 
structure using ANDIF: 

testl 

IF taskl test2 

ANDIF task2 test3 

ANDIF... 

ELSE... 

THEN 

In this sequence, each test leaves a 
flag. The sequence of tasks will be exe- 
cuted until a test leaves a false flag, at 
which point execution will jump to the 
code following ELSE (if used) or follow- 
ing THEN. Note that the code following 
ELSE will not be executed at all if all 
conditions test true, but will be executed 
if any condition tests false. Tasks must 
leave the stacks unaltered. 

A multi-conditional, multi-step loop 
can be programmed as: 

BEGIN 

testl 

WHILE taskl test2 
ANDWHILE task2 test3 
ANDWHILE... 
REPEAT 



This code will loop through the sequence 
of tasks until a test leaves a false flag; 
execution then jumps immediately out of 
the loop to the code following REPEAT. 

This technique of directing all unsuc- 
cessful exits out through the original 
OBRANCH imposes both a speed penalty 
and a code-size penalty over methods 
which compute and store back the exit 
address. The extra words are all primi- 
tives, so the speed penalty is small. The 
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Multiple IF Statement 



# 78 
\ ANDIF 
: ANDIF 

7C0MP DUP 2 7PAIRS 

COMPILE DUP COMPILE 0BRANCH 



WC8 7-7-84 



OVER 



COMPILE DROP 
IMMEDIATE 



\ Corapiler security 
\ duplicate -flag, Sbranch back 
N to IF, then out to ELSE or THEN 
\ address of -first 0BRANCH is second stack 
\ entry, under compiler security, minus 2 
\ if flag true, drop duplicate 



0BRANCH (addr) <next test, leave flag:;- DUP 0BRANCH (addr) DROP 

This code directs the false e>!it<5) back through the first 
0BRANCH <compiled by IF); therefore, the ELSE... THEN part of 
the conditional branching still work as usual. 
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Multiple WHILE Statement 



# 79 

\ ANDWHILE 
! ANDWHILE 

7C0MP DUP 4 7PAIRS 

COMPILE DUP COMPILE 0BRANCH 



WCQ 7-7-84 



OVER 



COMPILE DROP 
IMMEDIATE 



\ Compiler security 
\ duplicate flag, ©branch back 
\ to WHILE, then out past REPEAT 
\ address of first 0BRANCH is second stack 
\ entry, under compiler security, minus 2 
\ if flag true, drop duplicate 



;s 



0BRANCH (addr) <next test, leave flag:> DUP 0BRANCH (addr) DROP 

This code directs the false exit(s) back through the first 
0BRANCH (compiled by WHILE); therefore, the REPEAT part of the 
conditional branch structure still works as usual. 
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1985 
Rochester 

Forth 
Conference 

June 12 -15, 1985 
University of Rochester 
Rochester, New York 

The fifth Rochester Forth Con- 
ference will be held at the 
University of Rochester, and 
sponsored by the Institute for 
Applied Forth Research, Inc. 
The focus of the Conference 
will be on Software Engineer- 
ing and Software Management. 

Calf for Papers 

There is a call for papers on 
the following topics: 

•Software Engineering, and Soft- 
ware Management Practices 

•Forth Applications, including, 
but not limited to: real-time, 
business, medical, space- 
based, laboratory and personal 
systems; and Forth microchip 
applications. 

•Forth Technology, including 
finite state machines, meta- 
compilers. Forth implementa- 
tions, control structures, and 
hybrid hardware/software sys- 
tems. 



size penalty is four bytes per branch, bal- 
anced by savings in the code needed to 
implement ANDIF and ANDWHILE versus a 
heavier-duty solution (for example, the 
IT ENOIT code presented by Luoto in Ref. 
3). 
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presented at the Conference but 
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Research. 



Abstracts and papers should be sent to 
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Forsley, Laboratory for Laser Energet- 
ics, 250 East River Road, Rochester, 
New York 14623. For more information, 
call or write Ms. Maria Cress, Institute 
for Applied Forth Research, 70 Elmwood 
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Index to Volume Five 



This reference guide to Volume V was prepared as a service for our readers and for all members of the Forth Interest Group. 
Items are referenced by issue and page number. The first entry, for example, refers to an article on 3-D Animation which 
appeared in Volume V, Issue 1, page 11. 



3-D Animation 1/11 

6502 and 6809 Absolute Branches 2/27 

Ackerman, R.D. 4/19 
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33 KFLOPS 



Use your IBM PC (or compatible) to mul- 
tiply two 1 28 by 1 28 matrices at thie rate 
of 33 thousand floating-point operations 
per second (l<flops)! Calculate thie 
mean and standard deviation of 16,384 
points of single precision (4 byte) float- 
ing-point data in 1.4 seconds (35 
kflops). Perform ttie fast Fourier trans- 
form on 1024 points of real data in 6.5 
seconds. Near PDP-1 1/70 performance 
whien running the compute intensive 
Owen benchmark. 

WL FORTH-79 

FORTH-79 by WL Computer Systems is 
a powerful and comprehensive pro- 
gramming system which runs on the 
IBM PC (and some compatibles). If your 
computer has the 8087 numeric data 
processing chip (NDP) installed, then 
this version of FORTH-79 will unleash 
the awesome floating-point processing 
power which is present in your system. 
If you haven't gotten around to installing 
the 8087 NDP coprocessor in your com- 
puter, you can still use WL FORTH to 
write applications using standard 
FORTH-79. 



8087 support and other features 

WL FORTH features extremely fast float- 
ing point calculations because it uses 
the 8087 hardware stack to store inter- 
mediate results and achieve 16 to 18 
digits precision. The system includes a 
large set of transcendental functions, 
such as SIN, COS, TAN, ASIN, ACOS, 
ATAN, yz, LN, LOG, SORT. FORTRAN 
like conversion specification words 
allow the user to specify output field 
width, places beyond the decimal point 
and fixed or scientific notation. 

The FORTH assembler allows the user 
to code time critical words in 8087/8088 
assembly language and includes struc- 
tured branch and looping constructs. 
The entire 1 Mb address space is avail- 
able for array storage. Definitions can 
include SWITCH to different screen 
files, thereby allowing dynamic switch- 
ing of screen files. SAVE allows current 
system to be saved as a .COM file and 
ZAP prevents your applications from 
being decompiled. The system in- 
cludes interrupt driven exception hand- 
lers for both the 8087 and 8088, and the 
programmer can select the desired 
number of screen buffers. 



But can I get the source? 

Unlike most other products, the com- 
pletesource is available at a very 
affordable price. 

Package 1 includes FORTH-79 ver- 
sions with and without 8087 support. 
Included are screen utilities, 8087 and 
8088 FORTH assemblers. $100 

Package 2 includes package 1 plus the 
assembly language source for the WL 
FORTH-79 nucleus. $150 

Package 3 includes package 2 plus the 
WL FORTH-79 source screens used to 
add the 8087 features to the vocab- 
ulary. $200 

Starting FORTH book. $22 

WL Computer Systems 

1910 Newman Road 
W. Lafayette, IN 47906 
(317) 743-8484 

Visa and Master Card accepted. 



IBM is a trademark of International Business Ma- 
chines 
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Mixing CODE With High-level Forth 



Henry Laxen 
Berkeley, California 

One of Forth's nicest features is the 
ability to easily integrate high-level, 
machine-independent Forth code with 
low-level, machine-dependent assembly 
code. This fact has many implications, 
the most significant of which is that the 
issue of run-time efficiency can usually 
be deferred until much of the application 
has been completed. Once a system 
reaches a certain critical mass, it is no 
longer intuitively obvious which routines 
to recode in order to improve perfor- 
mance; and much programmer time is 
generally wasted by trying to optimize 
procedures early in the game, before 
meaningful performance measurements 
can be gathered. Thus, performance im- 
provement should be deferred as long as 
possible, until after the system is running 
and is no longer subject to massive 
change. The nice thing about Forth is 
that there is usually little or no penalty 
for this waiting period and, in fact, fre- 
quently no fine tuning is necessary. How- 
ever, if that were always the case, this 
would be a very short and dull essay. The 
purpose of this paper is to examine some 
programming techniques that will sim- 
plify performance enhancement. 

The problem that I propose to address 
is how to easily and conveniently mix 
high-level code with low-level code. In 
one direction, this problem is more or 
less solved by the use of CODE words. 
CODE is a Forth defining word which 
allows the user to use the assembly lan- 
guage of his machine to define a new 
word in Forth. Thus, on an 8080 the hnes 
presented in figure one are functionally 
identical, even though the code version is 
about ten times faster. 

Frequently, when it comes to speed 
optimization, there are a few critical 
functions which can be rewritten as CODE 
words and integrated into the system. 
This is usually all that is required. A 
different problem, which in reality doesn't 
occur very often, involves writing inline 



: 2* 2 * ; 

CODE 2* flx POP OX flx m m push next EHD-CODE 

Figure One 



Header(OOUBLE) 

puntiM(NEST) 

cfa(2) 


Header(2} 

runtiae(CONSTflNT) 

value(2) 


cfQ(*) 


Headep(*) 

HBpe+2 for code ■ord 
flsseibly language code 


cfa(.) 


Header ( . } 

runtiee(HEST) 

cfos of eords called by . 


cfQ(UMMEST) 


Header(UHHEST} 
Here'1'2 for code eord 
Reseebly language code 

Figure Two 



: [C ( - ) 

HERE 2^ , HERE 2* , flSSEHBLER [COHPILE] [ ; 
innEDIRTE 

: CI ( - ) 

[ RSSEHBLER ] HERE 6 ♦ • IP HOU HEXT FORTH ] ; 

: DOUBLE ( n ~ ) 

[C flX POP RX RX ROD RX PUSH C] . ; 

Figure Three 



Volume VI, No 4 



37 



] 



FORTH Dimensions 



LABEL HILEUEL 




RP DEC BP DEC IP [RP] HOU >P POP HEXT 








niucvuL / UiiLL run in j j 




CODE (jC) ( - ) 




IP PUSH [RP] IP m RP IHC RP IHC RET 


EHD-COOE 


: jC ( - ) 




[ flSSEHBLER ] COflPILE (;C) RSSEHBLER 




[COnPILE] [ ; innEDIRTE 




CODE EXflnPLE ( ~ ) 




5 • RX m flX PUSH C: High Level" DUP . 




flX POP HEXT EHO-CODE 




Figure Four 





assembly language code within a high- 
level definition. While you could always 
make a separate CODE word out of the 
inline assembly language and then simply 
reference the word, I think it would be an 
interesting intellectual exercise to see just 
how we could accomplish this inline if we 
wish. 

The idea is that while we are executing 
high-level code, we all of a sudden want 
to run some inline assembly language 
code and then return to high level when 
we are done. A high-level word has a 
parameter field that contains pointers to 
code fields. The code fields themselves 
contain pointers to code. See figure two 
for an illustration of this. 

We know that when we are running in 
a high-level definition, the IP (interpre- 
tive pointer) is inside the parameter field 
of the current word being executed. It is 
pointing at a word which contains the 
code field address of the next component 
word to be executed. This code field 
points to machine-executable code. In 
general, the CFA of CODE words points 
two bytes beyond itself, which is where 
the actual code begins. Thus, to create 
inline code, we must duplicate this struc- 
ture. This is accomplished with the code 
presented in figure three. 

Notice that we must do the HERE 2+ , 
twice. The first one is a pointer to a code 
field; the second is the code field that 
points to code, which is inline. Next we 
go into the ASSEMBLER vocabulary, and 
stop compilation with [. This word must 
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be immediate so that it is executed while 
we are compiling. The only mysterious 
thing about the definition of C] is the 
magic number six. Well, on an 8080, six 
is the number of bytes occupied by the # 
MOV and NEXT #) instructions, so it is 
what we must set the IP to in order to 
continue interpreting high-level code af- 
ter the low-level inline code. We then 
reenter compilation by calling ]. Finally, 
DOUBLE is an example of how we would 
use [C and C]. We go immediately from 
high level to low level, double the number 
on the stack, and return to high level, 
where we print it out with . (dot). 

I don't think writing inline assembly 
language code in your high-level defini- 
tions is very useful, and I don't recom- 
mend it; but I included it for your 
amusement and edification. The other 
direction, however, can be extremely 
useful, namely calling high-level defini- 
tions from assembly language and return- 
ing. One application of this comes to 
mind immediately: fetching or storing 
characters in an 1/ O buffer. If the buffer 
holds, say, IK of characters, then only 
after calling it a thousand times do you 
actually need to perform 1/ O. The actual 
I/O operation is thus rather rare and 
usually involves executing a lot of code. 
Wouldn't it be nice if you could write a 
code word that usually fetches a charac- 
ter out of the buffer but, when the buffer 
is empty, calls a high-level word such as 
BLOCK to perform the necessary I/O. 
You could do this by factoring the 
character-by-character 1/ O into two pie- 
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ces and passing flags back and forth, but 
this is inefficient and ugly. The inline 
high-level code solution is much cleaner. 
The code that implements this is shown 
in figure four. 

Let's see if we can figure out how this 
works. The word C: assembles a CALL 
instruction and starts up the Forth com- 
piler with ]. The CALL instruction pushes 
the address of the next word onto the 
stack, and then executes the code at the 
label HILEVEL. This code saves the cur- 
rent value of the IP on the return stack 
and sets the IP to the value that is cur- 
rently on the parameter stack, which was 
left there by the CALL instruction. That is 
really all there is to it. We are now exe- 
cuting high-level Forth code inhne. When 
we are through executing Forth code 
and want to return to the assembly lan- 
guage word we were called by, we end the 
high-level code with ;C. This compiles (;C) 
inhne and leaves the compiler to return 
to the assembler. At run time, (;C) pushes 
the current value of the IP and restores 
the old value of the IP from the return 
stack. Since NEXT has already incre- 
mented the IP to point to the next word, 
a simple RET instruction brings us back 
to the assembly language code that fol- 
lows the ;C. An example of how this is 
used is shown in the word EXAMPLE. We 
first load a 5 into the AX register and 
push it onto the stack. We then enter 
high-level code and print out the string 
"High Level" followed by the number on 
the parameter stack. We then return to 
the code word we were in, pop the stack 
and jump to NEXT. While the example 
does not perform a terrible useful func- 
tion, it does illustrate the transition 
between low- and high-level code. 

Although the code presented here is 
only for an 8080, if you understand the 
principles involved it will not be difficult 
for you to translate it for your processor 
if you want to use it. Once this kind of 
tool is available to you, I am sure you 
will find many applications for it. Imple- 
menting fast character-by-character I/O 
buffering is just one common applica- 
tion. It is also handy for displaying error 
messages during low-level hardware diag- 
nostic code. Use your imagination! Any- 
way, that is all for now and, until next 
time, may the Forth be with you. 

Copyright ® 1984 by Henry Laxen. 
All rights reserved. 
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TOTAL CONTROL 

FORTH: FOR Z-8(F, 8086, 68000, and IBM® PC 

Complies with the New 83-Standard 
GRAPHICS. GAMES. COMMUNICATIONS. ROBOTICS 
DATA ACQUISITION . PROCESS CONTROL 

• FORTH programs are instantly 



are 

portable across the four most popular 
microprocessors. 

• FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

• FORTH programs are highly struc- 
tured, modular, easy to maintain. 

• FORTH affords direct control over 
all interrupts, memory locations, and 
I/O ports. 

• FORTH allows full access to DOS 
files and functions. 

• FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

• FORTH Cross Compilers are 
available for ROM'ed or disk based ap- 
plications on most microprocessors. 

Trademarks: IBM. International Business Machines 
Corp: GP/M, Digital Research Inc.: PC/Forth + and 
PC/GEN, Laboratory Microsystems, Inc 



FORTH Application Development Systems 

nclude interpreter /compiler with virtual memory 
management and multi-tasl<ing, assembler, full 
screen editor, decompiler, utilities and 200 page 
manual. Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions, 
Z-80 FORTH for CP/IVl-' 2,2 or MP/tvl II, $1 00,00: 
8080 FORTH for CPIM 2 2 or MP/M II, $100,00: 
8086 FORTH for CP/M-86 or MS-DOS, $100,00; 
PC/FORTH for PC-DOS, CP/lv1-86, or CCPIVI. 
$100,00; 68000 FORTH for CP/I^-68K, $250,00, 

FORTH + Systems are 32 bit implementations 
tliat allow creation of programs as large as 1 
megabyte. Tfie entire memory address space of 
tine 68000 or 8086/88 is supported directly 

PC FORTH -I- $250 00 

8086 FORTH + tor CP/M-86 or MS-DOS $250,00 
68000 FORTH + for CP/M-68K $400,00 

Extension Packages available include soft- 
ware floating point, cross compilers, INTEL 

8087 support, AMD 951 1 support, advanced col- 
or graptiics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 
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Laboratory Microsystems Incorporated 

Post Office Box 10430, /Carina del Rey, CA 90295 
Phone credit card orders to (213) 306-7412 



GGM- FORTH for Z80'CP/M 



® 



GGM— FORTH, a complete software system for 
real-time measurement and control, runs on any 
Z80 computer under CP/M using an extended 
fig-FORTH vocabulary. 

GGM-FORTH uses direct-access FORTH 
"screens" files, and also sequential text files, 
and allows four or more files to be 
simulaneously active for input/output. 

All CP/M input/output devices, including 
printer, reader, punch, etc., are accessable to 
GGM-FORTH routines thru BDOS calls, 
making it truly hardware-independent. 

In addition, GGM-FORTH includes an on- 
line HELP facility, which can look up any word 
in the dictionary and display its definition 
and/or other information. The HELP 
dictionary is easily extendable to add the 



user's own definitions. HELP may be invoked 
at any time without disturbing the stack 
contents or screen display (in the case of the 
full-screen editor). 

GGM-FORTH features: 

• Open multiple CP/M files, in any coinbin 
ation of direct-access and sequential access, 
fully compatible with all CP/M utilities 

• Char, in/out uses CP/M console, lister, file, or 
port 

• On-line HELP provides instant access to defi- 
nitions in the run-time GGM-FORTH dictionary 

• HELP file is easily extended to include user 
definitions using HELP utility 

• HELP is available during full-screen editing 

Complete system and manuals $195. 



GGM SYSTEMS, INC. (617)662-0550 
135 Summer Ave., Reading, MA 01867 



Z80 is a trademark of Zilog, Inc. CP/M is a trademark of Digital Research, Inc 
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BRYTE 
FORTH 

INTEL 
8031 

MICRO- 
CONTROLLERi 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 803) features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROIVl-based self- 
starting applications 



COST 

130 page manual — $ 30.00 
8K EPROM with manua/— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 



John D. Hall 
Oakland, California 

I still haven't heard! 

Would you like to talk to other people 
who use Forth? Would you like to hear 
how other people use Forth? Would you 
like to interest other people in the proj- 
ects you are working on? Would you like 
to know more about Forth? If any of the 
answers were yes and you live near one of 
the missing cities (see sidebar), then why 
don't you get together with the others in 
your area and get a FIG chapter started? 
Each of these cities has more than enough 
FIG members to have a chapter, but 
where is it? 

There are even more people than these 
FIG members. For each FIG member in 
your city (listed to the right of the city in 
the accompanying figure) there seem to 
be five other people who use Forth but 
who have not yet joined the Forth Inter- 
est Group. Two of those five probably 
are experts in Forth! Get them to join! 
Get them to help you! 

I can't start the chapter for you. You 
will have to make the effort. How to do 
it? Try this for starters: 

1) Write or call and tell me you are inter- 
ested in trying.(I will send you a chapter 
kit and the names of the FIG members in 
your area.) Write to: 

Forth Interest Group 

Att'n: John D. Hall 

P.O. Box 8231 

San Jose, California 95155 

or call the FIG HotUne: 415-962-8653 

2) Decide on a temporary meeting time 
and place. Choose it at your conven- 
ience, since you are the one making the 
effort to get the chapter started. 

3) Contact the other FIG members in 
your area by telephone, letter or a notice 
in your local computer newspaper. 
(Spend a little money on this one — you 
will get it back later.) 



4) Call the first meeting! Discuss inter- 
ests, then decide on a second meeting 
and format. 

5) At the second meeting, a) elect officers 
and a program chairman (distribute the 
responsibilities, it makes life easier that 
way), b) collect dues for the chapter 
(repay yourself for the original out-of- 
pocket expenses), and c) estahsh a list of 
speakers for the following meetings. 

6) Have five FIG members sign the 
Chapter Certification Form and return it 
to me. 



We have four new chapters, and one 
special interest group has changed to a 
chapter with meetings. That makes a 
total of sixty-five chapters! 

Atlanta FIG Chapter 
Atlanta, Georgia 

New Orleans FIG Chapter 
New Orleans. Louisiana 

Detroit FIG Chapter 
Detroit, Michigan 

Austin FIG Chapter 
Austin, Texas 

East Tennessee FIG Chapter 
Oak Ridge, Tennessee 



Atlanta FIG Chapter 

July 10: Our meeting was well at- 
tended; thanks to Computone for allow- 
ing us to use their excellent facilities. 
Alan Sandercock described an elegant 
Forth conversion of a BYTE magazine 
article about benchmarking of array 
multiplication. We are always interested 
in making comparisons with other lan- 
guages. Alan, thanks for sharing your 
expertise with us. Talking about com- 
parisons, as many of you know, Ada is 
now the standard for Department of 
Defense mission-critical software. Look- 
ing at many of the "unique" features of 
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Ada, such as "packages" of code that can 
be individually compiled and reused, one 
is reminded of how much of Forth we 
accept as normal that many in the soft- 
ware world are just beginning to appre- 
ciate. The future and strength of Ada is 
in the automated environment for life- 
cycle support. I sense that this is the key 
for future quality, productivity and cost 
reduction, and I worry that the Forth 
community may be missing the boat. As 
usual, some other topics surfaced and 
created a lively debate. This time we were 
concerned about the meaning of "real 
time" and the significance of interrupt 
handling. In my mind, real time means 
the ability to complete a process on 
behalf of an external system in such a 
way as to influence the external system. 
Real time normally, but not necessarily, 
means fast! An interrupt is more simply 
defined as a means to suspend a process 
in response to an external event in such a 
way that the process can be resumed. 

— Ron Skelton 



Detroit FIG Chapter 

July 26: The July meeting was held at 
the Ford Diversified Products Technical 
Center. The first part of what is to be an 
ongoing discussion of the basics of Forth 
was started. The first topic was a short 
discussion of what the Forth languages is 
and isn't. Some of the most simple Forth 
words e.g., + . DUP DROP SWAP * SPACE 
SPACES CR KEY EMIT @ ! ; VARIABLE CON- 
STANT ." " — were discussed and demon- 
trated. The "visible stack" feature of the 
Bay Area Atari Forth (public domain) 
was helpful while demonstrating data 
stack operation, although bugs in this 
version prevented us from using it 
throughout the meeting and APX Forth 
was later used. Basic concepts of the dic- 
tionary and the data stack were dis- 
cussed. Colon definitions and sample 
Forth coding sheets were distributed. 
The "Large Letter F" program from 
Starting Forth was discussed and dem- 
onstrated. The tutorial was planned to 
continue through the August meeting 
with chapter two of Starting Forth. 

— Thomas Chrapkiewicz 



East Tennessee FIG Chapter 

June 12: The East Tennessee Forth 
Interest Group (ET-FIG) was formed at 
its first meeting, with over twenty people 
in attendance. The meeting, which was 
held in Oak Ridge, featured three pre- 
sentations by local FIG members. Dr. 
Ray Adams gave a very enjoyable and 
informative paper titled, "Why Forth, 
and What Forth is Good For Amidst 
Computer Languages." This was fol- 
lowed by brief presentations by Norman 
Smith and Richard Secrist reviewing 
available Forth literature and "Imple- 
menting fig-FORTH on the VAX- 11 in 
PDP-11 Compatibility Mode." 

— Richard Secrist 



Kansas City FIG Chapter 

June 26: Fourteen people attended the 
meeting. We discussed the pros and cons 
of the Forth-83 Standard. The 83-Stand- 
ard is definitely an improvement, but 
some questioned the wisdom of chang- 
ing a standard, especially at this time. 
Some also felt the standard does not 
encompass enough. 

July 24: Twelve people attended. Terry 
Rayburn shared his experience of meta- 
compiling into ROM. Bill Jelhson is in 
the process of procuring equipment for 
the network. It will probably be at least 
three months before he is ready. Whether 
or not you feel there is a place for 
floating-point math in Forth, and 
whether or not you even have support 
for floating point, you will do a lot of 
calculations in Forth using fixed point. 
Terry Rayburn has recommended Com- 
puter Approximations by Hart to help 
you write those complicated algorithms 
in fixed point. — Linus Orth 



Missing Cities! 

Huntsville, Alabama (5) 
Anchorage, Alaska (5) 
Fairbanks, Alaska (5) 

(Kodiak has a chapter!) 
Escondido, California (26) 
Santa Barbara, California (25) 

(Eight other California chapters!) 
Gainesville, Florida (9) 
Orlando, Florida (11) 
Tampa, Florida (25) 
Honolulu, Hawaii (9) 
Chicago, Illinois (30) 
Evansville, Indiana (5) 
Lafayette, Indiana (6) 
Ames, Iowa (5) 
Rochester, Minnesota (6) 
Lincoln, Nebraska (5) 
Reno, Nevada (9) 
Newark, New Jersey (42) 
Las Cruces, New Mexico (5) 
Santa Fe, New Mexico (7) 
Buffalo, New York (8) 
Charlotte, North Carolina (8) 
Raleigh, North Caroline (9) 
Nashua, New Hampshire (19) 
Columbus, Ohio (7) 
Toledo, Ohio (7) 
Oklahoma City, Oklahoma (5) 
Corvallis, Oregon (12) 
Pittsburg, Pennsylvania (11) 
Memphis, Tennessee (7) 
El Paso, Texas (5) 
San Antonio, Texas (7) 
Sah Lake City, Utah (5) 
Seattle, Washington (54) 
Madison, Wisconsin (17) 
Milwaukee, Wisconsin (17) 

Copenhagen, Denmark (7) 
Helsinki, Finland (8) 
Tokyo, Japan (21) 
Amsterdam, Netherlands (8) 
Wellington, New Zealand (5) 
Oslo, Norway (8) 
Barcelona, Spain (5) 
Stockholm, Sweden (5) 
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U.S. 



. ALASKA 



Kodiak Area Chapter 

Call Norman C. Mcintosh 
907/486^843 



. ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

Tucson Chapter 

Twice Monthly, 2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead 

602/323-9763 



. CALIFORNIA 

Berkeley Chapter 

Monthly. 2nd Sat., 1 p.m 

10 Evans Hall 

University of California 

Berkeley 

Call Mike Perrv 

415/644-3421 

Los Angeles Chapter 

Monthly, 4th Sat., II a.m. 

Allstate Savings 

8800 So. Sepulveda Boulevard 

Vi mile North of LAX 

Los Angeles 

Call Phillip Wasson 

213/649-1428 

Monterey/Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
FuUerton Savings 
Talbert & Brookhurst 
Fountain Valley 
Monthly, 1st Wed., 7 p.m. 
Mercury Savings 
Beach Blvd., & Eddington 
Huntington Beach 
Call Noshir Jesung 
714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon. 
CaU Guy Kelly 
619/268-3100 ext 4784 

Sacramento Chapter 

Monthly, 2nd Tues., 7 p.m. 
170B 59th St., Room C 
Call Tom Ghormley 
916/444-7775 



Silicon Valley Chapter 

Monthly, 4th Sat.. 1 p.m. 

Dysan Auditorium 

5201 Patrick Henry Dr. 

Santa Clara 

Call Glenn Tenney 

415/574-3420 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

. COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m 
Call Steven Sarns 
303/477-5955 

. CONNECTICUT 

Central Connecticut Chapter 

Monthly, 1st Thurs., 7 p.m. 
Meriden Public Library 
Call Charles Krajewski 
203/344-9996 



. FLORIDA 

Southeast Florida Chapter 

Miami 

Call John Forsberg 
305/252-0108 



. GEORGIA 

Atlanta Chapter 

Call Ron Skelton 
404/393-8764 



. ILLINOIS 

Central Illinois Chapter 

Urbana 

Call Sidney Bowhill 
217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 



. INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call Richard Turpin 
317/923-1321 

Fort Wayne Chapter 

Call Blair MacDermid 
219/749-2042 



. IOWA 

Iowa City Chapter 

Monthly, 4th Tues. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 



. KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 S. Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 



. LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8933 



. MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m 



. MICHIGAN 

Detroit Chapter 

Call Tom Chrapkiewicz 
313/562-8506 



. MINNESOTA 

MNFIG Chapter 

Even month, 1st Mon., 7:30 p.m. 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
Minneapolis, MN 
Call Fred Olson 
612/588-9532 



. MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Inst. 
Mag Conference Center 
Call Linus Orth 
816/444-6655 

St. Louis Chapter 

Monthly, 3rd Tues., 7 p.m. 
Thornhill Branch of 
St. Louis County Library 
Call David Doudna 
314/867-4482 



. NEVADA 

Southern Nevada Chapter 

Suite 900 

101 Convention Center Drive 
Las Vegas, NV 
Call Gerald Hasty 
702/452-3368 



. NEW MEXICO 

Albuquerque Chapter 

Call Rick Granfield 
505/296-8651 



. NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Tom Jung 
212/432-1414 ext. 157 days 
212/261-3213 eves. 

Rochester Chapter 

Bi-monthly, 4th Sat., 2 p.m. 
Hutchison Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 

Syracuse Chapter 

Monthly, 1st Tues., 7:30 p.m. 
Call C. Richard Corner 
315/456-7436 



. OHIO 

Athens Chapter 

Call Isreal Urieli 
614/594-3731 

Cleveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 
513/831-0142 

Dayton Chapter 

Twice monthly, 2nd Tues., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 



. OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Computer & Things 
3460 SW 185th, Aloha 
Call Timothy Huang 
503/289-9135 
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. PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 3rd Sat. 

LaSalle College, Science Bldg. 

Call Lee Hustead 

215/539-7989 



. TENNESSEE 

East Tennessee Chapter 

Monthly, 2nd Tue., 7:30 p.m, 

Sci. Appl, Int'l Corp, 8th Fl, 

800 Oak Ridge Turnpike, Oak Ridge 

Call Richard Secrist 

615/482-9031 



. TEXAS 

Austin Chapter 

Contact: Matt Lawernce 
P.O. Box 180409 
Austin, TX 78718 

Dallas/ Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Software Automation, Inc. 
14333 Porton, Dallas 
Bill Drissel 
214/264-9680 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 



. VERMONT 

Vermont Chapter 

Monthly, 3rd Mon.. 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Hal Clark 
802/877-2911 days 
802/452-4442 eves 



. VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 1st Tues.. ~ p.m. 
Lee Center 

Lee Highway at Le.xington St 
Arlington, VA 
Call Joel Shprentz 
703/437-9218 eves. 

Richmond Forth Group 

Monthly, 2nd Wed.. " p m 
Basement, Puryear Ha.! 
Univ. of Richmond 
Call Donald A. Fuli 
804/739-3623 



FOREIGN 



. AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact: Lance Collins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 

Monthly, 2nd Fri.. 7 p.m. 
John Goodsell Bldg., 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact: Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 



. BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact: Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 

Southern Belgium FIG Chapter 

Contact: Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 Nalinnes 

Belgium 

071/213858 



. CANADA 

Nova Scotia Chapter 

Contact: Howard Harawit? 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P 2E5 
902/477-3665 

Southern Ontario Chapter 

Monthly, 1st Sat., 2 p.m. 
General Sciences Bldg. 
Rm. 312 

McMaster University 
Contact: Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S 4K1 
416/525-9140 ext. 2065 

Toronto FIG Chapter 

Contact: John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C 5J2 



. COLOMBIA 

Colombia Chapter 

Contact: Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 



. ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 7 p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
Contact: Keith Goldie-Morrison 
Bradden Old Rectory 
Towchester, Northamptonshire 
NN12 8ED 

. FRANCE 

French Language Chapter 

Contact: Jean-Daniel Dodin 
77 rue du Cagire 
31 100 Toulouse 
(16-61)44.03 

. GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat.. 1500 hrs. 
Contact: Horst-Gunter Lynsche 
Holstenstr. 191 
D-2000 Hamburg 50 

. IRELAND 

Irish Chapter 

Contact: Hugh Doggs 
Newton School 
Waterlord 

051/75757 or 05 1/74 1 24 

. ITALY 

FIG Italia 

Contact: Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 

. REPUBLIC OF CHINA 

R.O.C. 

Contact: Ching-Tang-Tzeng 
P.O. Box 28 
Lung-Tan, laiwan 325 

. SWITZERLAND 

Swiss Chapter 

Contact; Max Hugelshofer 
ERNI & Co. Elektro-industrie 
Stationsstras.se 
8306 Bruttisellen 
01/833-3333 

SPECIAL GROUPS 

Apple Corps Forth Users 
Chapter 

Twice Monthly, lst& 

3rd Tues., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 
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